[MSACCESS] Database Query and Recordset

sql.vb

Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim id as Integer

id = 20
sql = "SELECT * FROM MyTable " & _
            "WHERE id = " & id
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)

If Not (rs.EOF And rs.BOF) Then
    'id found!!
    log rs!name
End If