Windows mobile connect with sql server 2008 r2

Imports System.Data

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand
Dim da As New SqlClient.SqlDataAdapter
Dim dr As SqlClient.SqlDataReader
Dim strcon As String
Dim strsql As String
strcon = "Data Source=192.168.1.104;Initial Catalog=dbsel;Integrated Security=True"
strsql = "Select ID,Naziv FROM osnovnegrupeprodaajniartiklla"
da = New SqlClient.SqlDataAdapter(strsql, strcon)
con = New SqlClient.SqlConnection(strcon)
con.Open()

cmd = New SqlClient.SqlCommand(strsql, con)
dr = cmd.ExecuteReader
MsgBox(con.State.ToString)

con.Close()
MsgBox(con.State.ToString)

End Sub
End Class
this is code

I have enabled the tcp/ip on server all other stuff but stil is not working

where are the experts???????