E aí pessoal, blz?
eu estou tendando filtar os dados de minha tavela mas continua dando erro...

Run-time error 91
object variable or whith block variable not set

o código que eu uso é o seguinte:

Dim strMedicamento As String
Dim RS As ADODB.Recordset
Dim DB As ADODB.Connection

strMedicamento = InputBox("Qaul Medicamento deseja procurar?", "Consulta")
   RS.Filter = "Nome like'" & strMedicamento & "*'"  'filtra os registros de sua tabela
   RS.MoveMin
  
   Do While Not RS.EOF
   List1.AddItem RS!Código & " - " & RS!Medicamento & " - " & RS!Data  'Adiciona os dados ao seu list
   RS.MoveNext
   Loop

mas continua dando erro na minha linha

 RS.Filter = "Nome like'" & strMedicamento & "*'"

qual será o probeblema?

valeu p/ quem responder...

1º Abrir Recordset (rs.open)

2º setar Recordset (Set RS = New Recordset)

3º strMedicamento = InputBox("Qaul Medicamento deseja procurar?", "Consulta")
   RS.Filter = "Nome like'" & strMedicamento & "*'"  'filtra os registros de sua tabela
   RS.MoveMin <---- Tá errado

 

testa ai depois vc posta! falow