Как программно сделать отбор записей по текстовому полю с БД - VB

Формулировка задачи:

в таблице бд 3 поля. users, password и FIO на форме 3 текстовых поля, в которые: в text1.text - вводиться users в text2.text - вводиться password. а при нажатии на кнопку в text3.text должно вывести FIO, по text1.text(users). н.р. в базе: в поле users записан - user1 в поле password записан password1 в поле FIO записан FIO1. на форме в text1.text вводиться пользователем user1 в text2.text вводить пользователем password1 и при нажатии на кнопку в text3.text должно вывестись FIO1. как это сделать? кинте плиз код! а то я в запаре...

Решение задачи: «Как программно сделать отбор записей по текстовому полю с БД»

textual
                            Листинг программы 
                        

                              Dim OldDb As DAO.Database
  Dim OldTbl As DAO.Recordset
  Set OldDb = Workspaces(0).OpenDatabase("Путь к файлу")
  Set OldTbl = OldDb.OpenRecordset("SELECT * FROM Таблица1 WHERE LCase(User) = '" & LCase(Text1.Text) & "' And Passworld = '" & Text2.Text & "'")
  If Not OldTbl.EOF Then
    Text3.Text = OldTbl("FIO").Value
  End If
  OldTbl.Close
  OldDb.Close
                        