Dim DB as Database
Dim RS as Recordset
Set DB = Opendatabase("DieDatenbank.mdb")
Set RS = DB.OpenRecordSet("Select * from [Tabelle] where [Feld] like '*" & _
  Text1.text & "'*")
'do
'....
'loop until rs.eof = true
rs.close
set rs = nothing
db.close
set db = nothing