Cuadro de lista access

buenas tardes quisiera que la siguiente sintaxis se aplicara en access como puedo hacerlos

técnicamente esto hace que un cuadro de lista aparecen datos al seleccionar cierto dato de forma automática me aparece el texbox, como seria en access

Private Sub lbBase_Click()
Application.ScreenUpdating = False
Call Selección
buscar (False)
Sheets( 1 ).Select
Application.ScreenUpdating = True
End Sub

Sub buscar(bci As Boolean)
Sheets( BASE ).Select
If bci = False Then
For i = 2 To 2 + Application.WorksheetFunction.CountA(Range( A:A ))
If Cells(i, 1) = txtNombre.Text Then
txtNombre.Text = Cells(i, 1)
indice = i
End If
Next
Else
txtNombre.Text = Cells(indice, 1)
End If
End Sub

Sub Selección()
For i = 0 To 100
If lbBase.Selected(i) = True Then
txtNombre.Text = lbBase.List(i)
End If
Next i
End Sub