wtor
Messages postés59Date d'inscriptiondimanche 23 novembre 2003StatutMembreDernière intervention18 mars 2011 20 janv. 2008 à 01:38
bonjour
essayez ce bout de code
Dim Con As ADODB.Connection
Private Sub Form_Load()
Dim SrcODBC As String
'Cette variable contien un nom de source de données ODBC
SrcODBC = "Nom_Source_ODBC"
Set Con = New ADODB.Connection
Con.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;Data Source=" & SrcODBC