Sujet -- du code VB6 pour travailler avec une BD SQL Server sous réseau

Salut,
Je voudrais un code ou un lien vers un code conçu pour gérer une BD SQL Server sous réseau s'il est disponible

Merci

je ter  conseille d'utiliser la fonction de recherche du site !

    'Connexion à la base de données
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
       
    On Error GoTo ErrOuv
       
    With cn
        .Provider = "SQL Native Client"
        .ConnectionString = "Driver={SQL Native Client};Server=ton_ip\SQLEXPRESS; Database=ta_base; Uid=tonuser;Pwd=tonpass;"
    End With
   
    cn.Open
    
    MsgBox cn ' affiche le compte rendu de la connection 
   
    Exit Sub

ErrOuv:
    MsgBox Err.Number & " : " & Err.Description
    End