o meu projeto ja está ponto so que eu queria abrir o meu bd de dado no modole

kd meu form ele abrir o meu bd de dado assi

 

Public Sub Conectar()
    On Error GoTo ErroConecta
        cnn.CursorLocation = adUseClient
        cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "pizza.mdb;"
        Exit Sub
ErroConecta:
        MsgBox "Erro ao Conectar com o Banco de Dados:" & vbCrLf & vbCrLf & "Erro: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Atenção"
    End

End Sub

do que queria nu modole

 

eu estou fazendo assim no meu modole

Public Bc_Cnn As ADODB.Connection
Public Rs_Bal As ADODB.Recordset

Public Sub Conectar()
    Set Ba_Cnn = New ADODB.Connection
    Set Rs_Bal = New ADODB.Recordset
    On Error GoTo ErroConecta
        Bc_Cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "pizza.mdb;"
        Bc_Cnn.CursorLocation = adUseClient
    Exit Sub
   
ErroConecta:
        MsgBox "Erro ao Conectar com o Banco de Dados:" & vbCrLf & vbCrLf & "Erro: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Atenção"
    End

End Sub
 so que ele dar erro "run-time erro "91" Object variable or with block variable not set"

 

nesta linha "    Rs_Bal.Open "SELECT * FROM bill where billno=" & Format(Text1.Text, "#####00000") & "' order by pname", Bc_Cnn, adOpenDynamic, adLockOptimistic
"

 

ja fiz dar erro

eu pegue um projeto
http://www.vbmania.com.br/vbmania/vbmforum.php?varMethod=Abrir&varID=252216&varSubPagina=1&varWorld=1

o dele da certo mais no meu bd da este erro

Tem um erro que estou vendo em seu segundo codigo porém não sei se resolve, seguinte:

 

Bc_Cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "pizza.mdb;"
        Bc_Cnn.CursorLocation = adUseClient

A linha: Bc_Cnn.CursorLocation = adUseClient, tem que vir antes do comando para abrir o banco, ou seja, assim:

 

Bc_Cnn.CursorLocation = adUseClient

Bc_Cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "pizza.mdb;"

Beleza ?

 

tem mais... na linha que vc disse que dá erro está no modulo também ? ou em um form ? em qual evento ? esta linha do erro ja é para quando a conexão estiver ok pois ja é o select para consulta da tabela certo ?

a linho do erro esta num form

 

se vc fizer isso:

 

msgbox Rs_Bal.state

 

antes de abrir o recordset...o que retorna?