des. ghost_jlp

Eu comecei do zero peguei meu banco de dado feito e, acess 2000 e um exemplo

No module

'Conexão

Public cnn As ADODB.Connection

'Recordset

Public rs As ADODB.Recordset

Public Sub Conectar()

'Instanciar

Set cnn = New ADODB.Connection

Set rs = New ADODB.Recordset

'Abrir BD

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "pizza.mdb"

cnn.CursorLocation = adUseClient

End Sub

Public Sub Desconectar()

'Fechar

rs.Close

cnn.Close

'Descarregar

Set rs = Nothing

Set cnn = Nothing

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim SQL As String

'Ao pressinar Enter...

If KeyAscii = 13 Then

    'Validar campo vazio

    If Text1 = "" Then Exit Sub

    'Abrir tabela

    Conectar

    SQL = "SELECT * FROM bill WHERE billno=" & Text1

    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic

    'Verificar registro

    If rs.EOF Then

        'Não há registros com o código informado

        'lblNome_Cliente = ""

        MsgBox "Código Não cadastrado.", vbInformation, "Não Cadastrado"

    Else

        'Mostrar o Nome

        MsgBox rs.Fields("pname")

    End If

    'Fechar conexão

    Desconectar

End If

End Sub

Mais agora ele dar este erro
”tipo de dados imcopativel na expressão de criterio