Public dbConn As String
Public dbCnx As OleDbConnection
Public MaBase As String = "CheminComplet\NomBase.mdb"
Public Sub ConnectionBase()
dbConn = "provider = microsoft.jet.oledb.4.0 ; data source = " & MaBase & " ; "
dbCnx = New OleDbConnection
dbCnx.ConnectionString = dbConn
dbCnx.Open()
Catch ex As Exception
MsgErreur = "WmodBaseDonne - ConnectionBase " & vbCrLf & " Erreur dans la connection à la base de données " & MaBase & vbCrLf & ex.Message
wOK = False
Exit Sub
End Try
End Sub