Te recomiendo que hagas tablas consultas en acces despues coloccas [x] debajo de nombre en CRITERIOS ok ... en ella colocas la informacion que deseas que aparesaca, luego puedes hacer la busqueda en visual
Private Sub ListPac_Click()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim myset As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open pathbase
conn.CursorLocation = adUseClient
Set cmd = New ADODB.Command
cmd.CommandText = "Tablaconsulta"
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("x", adBSTR, adParamInput)
cmd.Parameters.Append param
param.Value = "Nombre"
Set cmd.ActiveConnection = conn
Set myset = cmd.Execute
.
.aqui puedes manipular la informacion
.
.
myset.Close
conn.Close
Set myset = Nothing
Set conn = Nothing
End Sub