Olá pessoal,

Até o momento desenvolvi usando como banco de dados o Access 97, mas gostaria de conectar com o Access 2000, o que tenho que alterar na VB6 para que isso possa acontecer?

Desde já agradeço.

 

Luciano.

Provavelmente mudar a referência: microsoft DAO 2.5/3.51 Object library     para: Microsoft DAO 3.6 Object library

 

Conecte assim.

 

Option Explicit

Public Cnn As New ADODB.Connection

 

Public Sub conectabd()

 

    With Cnn
   
        'conexao com o banco de dados do access 2000
        Cnn.CommandTimeout = 10
        Cnn.ConnectionTimeout = 5
        Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
        Cnn.ConnectionString = "Data Source = C:andodedados.mdb;" & _
                               "Jet OLEDB:Database Password=;" & _
                               "User ID =Admin;" & _
                               "Password = ;"
                              
        'Abrindo a conexão
        Cnn.Open
   
    End With

End Sub