CONEXAO BANCO DE DADOS

USUARIO.EXCLUIDOS 11/05/2004 09:07:42
#24035
Pessoal, oque tem de errado?

Dim DBPN As Database
Dim TBPartNumber As Recordset
Set PN = OpenDatabase(App.Path & "\BD\PN.mdb")
Set TBPartNumber = DBPN.OpenRecordset("PartNumber", dbOpenTable)

O vb diz que o erro esta na ultima linha, mas o livro que estou estudando diz que eh assim mesmo!?

Ta certo?
USUARIO.EXCLUIDOS 11/05/2004 09:15:59
#24040 Resposta escolhida
Mude de:

Set PN = OpenDatabase(App.Path & "\BD\PN.mdb")

para:

Set DBPN = OpenDatabase(App.Path & "\BD\PN.mdb")

Pelo que vi pode ser isso...
Tópico encerrado , respostas não são mais permitidas
Voltar