Public Sub connexion_SQL_server()
Dim SQL_String As String
Dim cN As ADODB.Connection
Dim recset As ADODB.Recordset
Set cN = New ADODB.Connection
Set recset = New ADODB.Recordset
cN.ConnectionString = "Provider=SQLOLEDB; Data Source=chbase; UID=id1;PWD=confi;"
cN.Open ConnectionString
SQL_String = "SELECT * FROM tableClient "
recset.Open SQL_String, cN
Dim total
total = 0
recset.MoveFirst
While Not recset.EOF = True
'N-1
If recset.Fields(2) = 5983 Then
MsgBox "ok"
End If
recset.MoveNext
Wend
recset.Close
End Sub