Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
DNS = "ClientDB"
user = ""
pass = ""
cnx.ConnectionString = "DSN=" & DNS & ";UID=" & user & ";PWD=" & pass & ";"
cnx.Open
tout marche bien , commeent faire pour :

SI pas d'erreur de connection ALORS
on pass
SINON
msgbox("erreur etc etc..")
FIN SI

cnx.state << je crois que ca peut m'aider mé je c pas comment l'exploiter
merci !! j'espére avoire été clair !