У меня была эта проблема, и эта линия заставила ее работать ....
Protected Sub searchButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles searchButton.Click
Try
Dim dt As New Data.DataTable
Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("connection1").ToString())
Dim cmd As New SqlCommand("getAllPerson", con)
cmd.CommandType = Data.CommandType.StoredProcedure
cmd.Parameters.Add("@id", Data.SqlDbType.Int).Value = CInt(SearchBox.Text)
Dim da As New SqlDataAdapter
da.SelectCommand = cmd
da.Fill(dt)
fnameTextBox.Text = dt.Rows(0).Item("FName")
lnameTextBox.Text = dt.Rows(0).Item("LName")
dobTextBox.Text = dt.Rows(0).Item("DOB")
addressTextBox.Text = dt.Rows(0).Item("Address")
address1TextBox.Text = dt.Rows(0).Item("Address1")
contactTextbox.Text = dt.Rows(0).Item("ContactNo")
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
End Sub