tell me find record from the button

[hussaini]

Private Sub Command1_Click()
DataEnvironment1.rsCommand1.MoveFirst
End Sub

Private Sub Command2_Click()
DataEnvironment1.rsCommand1.MoveNext
End Sub

Private Sub Command3_Click()
DataEnvironment1.rsCommand1.MovePrevious
End Sub

Private Sub Command4_Click()
DataEnvironment1.rsCommand1.MoveLast

End Sub

Private Sub Command5_Click()
DataEnvironment1.rsCommand1.Update
End Sub

Private Sub Command6_Click()
Unload Me

End Sub

Private Sub Command7_Click()
Form2.Show

End Sub

Private Sub Command8_Click()
DataEnvironment1.rsCommand1.AddNew
End Sub

Private Sub Command9_Click()


End Sub

hello my code this i am finding records from database
just like i want to find any record from a form Name like jhon and i have created two objects one thing Command button and other is textbox where i search the name in text box i put the name and click the command button then results will be apear so please tell me the code of it

[Killer42]

Private Sub Command1_Click()
  DataEnvironment1.rsCommand1.MoveFirst
End Sub
 
Private Sub Command2_Click()
  DataEnvironment1.rsCommand1.MoveNext
End Sub
 
Private Sub Command3_Click()
  DataEnvironment1.rsCommand1.MovePrevious
End Sub
 
Private Sub Command4_Click()
  DataEnvironment1.rsCommand1.MoveLast
End Sub
 
Private Sub Command5_Click()
  DataEnvironment1.rsCommand1.Update
End Sub
 
Private Sub Command6_Click()
  Unload Me
End Sub
 
Private Sub Command7_Click()
  Form2.Show
End Sub
 
Private Sub Command8_Click()
  DataEnvironment1.rsCommand1.AddNew
End Sub
 
Private Sub Command9_Click()
 
End Sub
 

hello my code this i am finding records from database
just like i want to find any record from a form Name like jhon and i have created two objects one thing Command button and other is textbox where i search the name in text box i put the name and click the command button then results will be apear so please tell me the code of it

If we assume that Command9 is the search button, it might be somethin glike this...

Private Sub Command9_Click()
  DataEnvironment1.rsCommand1.FindFirst "Name = '" & Text1.Text & "'"
End Sub