Попробуй так...

' При нажатии на кнопку первой формыPrivate Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Form2 As New Form2
Form2.ShowDialog(Me)
End Sub


' При загрузке второй формыPrivate Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Form1 As Form1 = CType(Me.Owner, Form1)
OdbcDA.SelectCommand.CommandText = "SELECT * FROM <имя таблицы> WHERE Kod = " + "'" + Form1.DataGrid1.Item(Form1.DataGrid1.CurrentCell.RowNumber, 0) + "'"'где 0 - индекс столбца с полем КОД
Try
OdbcDA.SelectCommand.ExecuteNonQuery()
OdbcDA.Fill(OdbcDS)
Catch ex As Odbc.OdbcException
MessageBox.Show(ex.ToString)
End Try
End Sub

Тогда нада подумать... а что там тогда есть на Форме1?

Ну а где эти по одной записи отображаются? В ТекстБоксе или еще где? И отображается ли где-нибудь поле КОД?

Ну тогда вместо Form1.DataGrid1.Item(Form1.DataGrid1.CurrentCell.RowNumber, 0) вставь Form1.TextBox1.Text

Попробуй, попробуй... авось чего и получиться