Connexion d'access 2000

slt
j ai une base de données access et j'arrive pas a la connécté avec VB6 vous pouvez m'aidé , j'ai tapé :

Set conn_pr = New ADODB.Connection
conn_pr.Provider = "Microsoft.jet.Oledb.4.0"
conn_pr.ConnectionString = "Data Source=" & App.Path & "\Data.mdb;Jet OLEDB:Database Password="
conn_pr.Open

mais ça marche pas , comment fair alors ,
merci

Dim Cnx As New ADODB.Connection Dim DBPath As String DBPath = "C:\TaBase.mdb" Cnx.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DBPath & ";Uid=Admin;Pwd=;" On Error Resume Next Cnx.Open If Err Then  MsgBox "Erreur lors de l'ouverture de la BDD", vbExclamation End If Err.Clear On Error GoTo 0 MsgBox "Base ouverte avec succès !", vbInformation ':=) Cnx.Close Set Cnx = Nothing

Colorisation syntaxique par Renfield

_______________________________________________________________________
VB.NET is good ... VB6 is better