Para usar uma caixa de texto.

Dim Ws As Dao.Workspace
Dim Db As DAO.Database
Dim Tb1 As DAO.Recordset
Private Sub Text1_Change()
'Abrir
Set Ws = DBEngine.Workspaces(0)
    
Set Db = DBEngine.OpenDatabase(App.Path & "SeuBanco.MDB", False, False, ";pwd=SenhaSua") 'Se tiver senha
Set Tb1 = Db.OpenRecordset("SELECT * FROM SuaTabela where SeuCampo='" & Text1.Text & "' ", dbOpenDynaset)
 
 'Dim Sql As String
 'Sql = "SELECT * FROM SuaTabela where SeuCampo='" & Text1.Text & "'"
 'Set Tb1 = Db.OpenRecordset(Sql)
If Not Tb1.EOF Then
Text2.Text = Tb1(1)
Text3.Text = Tb1(2)
Text4.Text = Tb1(3)
End If
Tb1.Close
Set Tb1 = Nothing
Db.Close
End Sub