alguem pode me dar uma força

 o que eu faço quando dá esse erro num ado:

 

run time  erro '91':

object variablei or with block variable not set

não consigo fazer isso ai funcionar

 

Private Sub Command1_Click()

Dim V_SQL As String

V_SQL = "select * from tab_nome where nome like '" & txt_nome.Text & "'"

Cn_Banco.RecordSource = V_SQL

If Cn_Banco.Recordset.RecordCount < 0 Then

MsgBox "certo"

Else

MsgBox " errado"

End If

End Sub

Ao que pacere vc deve estar uzando o Objeto ADODB. Para faze-lo Funcionar vc deve fazer a conexão com o Banco de Dados no Própro Objeto.

 

Mas eu não uso o ADO desse jeito. acho Mais fácil fazer assim:

 

'Utilize a Referencia
'Microsoft ActiveX Data Object 2.X Library
Option Explicit
   Dim adoConexao As ADODB.Connection

Private Sub Form_Load()
   Dim adoRecodset As ADODB.Recordset

   Set adoConexao = New ADODB.Connection
   adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & App.Path & IIf(Right$(App.Path, 1) = "<BarraInvertida>", "", "<BarraInvertida>") & "Banco.mdb"
   'Substitua <BarraInvertida> pelo Caracter Barra Invertida, pq não aparece aqui no Site e Banco.Mdb polo seu Banco de Dados
End Sub

Private Sub Command1_Click()
   Dim adoRecordset As ADODB.Recordset
  
   Set adoRecordset = New ADODB.Recordset
  
   V_SQL = "select * from tab_nome where nome like '" & Text1.Text & "'"
   adoRecordset.Open V_SQL, adoConexao, adOpenKeyset, adLockOptimistic
  
   If Not adoRecordset.EOF Then
      MsgBox "certo"
    Else
      MsgBox " errado"
   End If
   adoRecordset.Close
End Sub