Dim MyConnection As New SqlConnection("server=(local)\SQLEXPRESS;database=MyDatabase;Integrated Security=SSPI;")
Dim MyDataAdapter As New SqlDataAdapter("SELECT * FROM Employee", MyConnection)
Dim MyCmd As New SqlCommandBuilder(MyDataAdapter)
Dim MyDataSet As New DataSet()
MyDataAdapter.Fill(MyDataSet)
Dim MyKey As DataColumn() = New DataColumn(0)
MyKey(0) = MyDataSet.Tables(0).Columns(0)
MyDataSet.Tables(0).PrimaryKey = MyKey
Dim FindMyRow As DataRow = MyDataSet.Tables(0).Rows.Find("12345" )