Access - Buscar registro en tabla

Sub BuscarValores()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim strSQL As String

    Dim valor As Variant

    ' Abre la base de datos de Access

    Set db = CurrentDb

    ' Crea la consulta SQL para buscar los valores en la tabla

    strSQL = "SELECT Campo1, Campo2, Campo3 " _

             & "FROM TuTabla " _

             & "WHERE Campo1 IN ('Valor1', 'Valor2', 'Valor3')"

    ' Abre un recordset basado en la consulta SQL

    Set rs = db.OpenRecordset(strSQL)

    ' Recorre los registros encontrados

    Do Until rs.EOF

        ' Obtén los valores de los campos

        valor = rs("Campo1")

        ' Realiza las operaciones o trabajos que deseas hacer con los valores encontrados

        ' ...

        ' Avanza al siguiente registro

        rs.MoveNext

    Loop

    ' Cierra el recordset y la base de datos

    rs.Close

    Set rs = Nothing

    Set db = Nothing

End Sub