Private Sub ConsultarXID()

Dim StringSql as String
Dim Rs As DAO.Recordset

StringSql="Select * from MiTabla Where Id=' " & TextBox1 & " ' "
Set Rs=Currentdb.OpenRecordset(StringSql, dbOpenSnapshot) 

TextBox1=Rs.Fields("Campo1")
TextBox2=Rs.Fields("Campo2")
TextBox2=Rs.Fields("Campo3")

Rs.Close
Set Rs=Nothing

End Sub

'Esta consulta es solo para obtener el conteo de registros que
'contiene una tabla 

Private Sub ContRegistros()

Dim StringSql As String
Dim Rs as DAO.Recordset

StringSql="Select Count(Campo1)From MyTabla"
Set Rs=currentdb.OPenRecordset(StringSql, DbopenSnapshot)

TextBox1=Rs.Fields(0)

Rs.Close
Set Rs=Nothing


End Sub

Cualquiera duda o pregunta enviarme un E-Mail y luego estare publicando su respuesta.