اين الخطأ في كود الاتصال عن بعد هذا ؟؟ رجاء المساعده

انا اعرف الاعدادات اللازمة لتجهيز السيرفر من الكتاب ولكني لا اعرف كيفية الاتصال الصحيحه فارجو تصحيح خطائي و رجاء وضع مثال بسيط

شكرا لك

هذا هو الكود الذي استخدمته كاملا حيث اي بي السيرفر 10.0.0.3

 Imports System.Data.SqlClient

 Public Class Form1
	 Dim Con As New SqlConnection("Data Source=10.0.0.3,1433;Network Library=DBMSSOCN;Initial 
 Catalog=database;integrated security=true;")

 ' هذه الطرقة للاتصال استخدمتها ايضا ولم تنجح حيث انها اخبرتني ان المستخدم خطا مع انها تعمل علي جهاز السيرفر نفسه
	 '  Dim  Con As New SqlConnection("Data Source=10.0.0.3,1433;Network  Library=DBMSSOCN;Initial Catalog=database;User  ID=userx;Password=aaaaaa;")

	 Dim SqlStr As String
	 Dim Cmd As SqlCommand
	 Dim DR As SqlDataReader
	 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	 End Sub

	 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		 SqlStr = "INSERT INTO VB(UserID, Username, Password)"
		 SqlStr = SqlStr & "VALUES"
		 SqlStr  = SqlStr & "('" & TextBox1.Text.Trim & "', '" &  TextBox2.Text.Trim & "', '" & TextBox3.Text.Trim & "')"
		 Cmd = New SqlCommand(SqlStr, Con)
		 Con.Open()
		 Cmd.ExecuteReader()
		 Con.Close()
		 MsgBox("Data Saved Successfully")

	 End Sub

	 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		 SqlStr = "SELECT * from VB WHERE (VB.UserID='" & TxtSearch.Text.Trim & "')"
		 Con.Open()
		 Cmd = New SqlCommand(SqlStr, Con)
		 DR = Cmd.ExecuteReader
		 If DR.HasRows Then

			 While DR.Read
				 TextBox5.Text = DR("UserID")
				 TextBox6.Text = DR("Username")
				 TextBox4.Text = DR("password")
			 End While
		 Else
			 MsgBox("Not Found")

		 End If
		 Con.Close()
	 End Sub
 End Class

Command1 هو للاضافة وهو يضيف القيم التي في

textbox1 & 2 & 3

command2 هو للعرض وهو يعرض في

textbox4 & 5 & 6

اسم فاعده البيانات database