مشكلة بالربط بقاعدة البيانات

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myConn As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\mybd.mdf;Integrated Security=True;User Instance=True")
Dim myCmd As SqlCommand = New SqlCommand("SELECT * FROM [emp] WHERE NO=" & Convert.ToInt32(TextBox1.Text), myConn)
myConn.Open()
Dim MyReader As SqlDataReader = myCmd.ExecuteReader()
If MyReader.Read() Then
Label1.Text = MyReader("Name")
Label2.Text = MyReader("Salary")
End If
myConn.Close()
End Sub