I have a form with mshflexgrid displaying data from a table. I also have a command button inside this form. This program highlight the row when user click on it. if the user click on the command button, this program will proceed to display another form and let the user make changes on this record. my code look something like below:

' <A> from, if user click on the command change button
Private Sub cmdchg_click()
Flex1.Row = Flex1.RowSel
Flex1.Col = 1

' store employee code into the form change text1
FrmEmpChg.Text1.Text = Flex1.Text
FrmEmpChg.Show
End Sub


' <B> Form to change Employee information
Private Sub form_load()
Dim Db as Database
Dim Rs as Recordset

Set Db = OpenDatabase(App.Path & "\DepartMent.Mdb")
Set Rs = db.OpenRecordset("Employee", dbOpenTable)

Rs.Index = "ID"
Rs.Seek "=", Trim(Text1.Text)
If Not Rs.NoMatch Then
Text2.text = Rs!Name
Text3.text = Rs!Address
-
-
Else
Msgbox("Can't Find This Record")
End If

End Sub


Text1.text box on <B> form displayed the employee ID correctly but seek operation failed. If i do a debug.print on text1.text, there was nothing displayed.
Appreciate if someone can share their experience on this.


Regards