A minima, voici un exemple (info structurantes à renseigner) :
Sub Vers_SQLServer()
Dim Requete As String
Dim Cnx As Object
Requete = "INSERT INTO Clients (Nom, Prenom) VALUES(" & _
"'" & UserForm1.TextBox1.Value & "'," & _
"'" & UserForm1.TextBox2.Value & "')"
Set Cnx = CreateObject("ADODB.Connection")
With Cnx
.Provider = "MSDASQL"
.Open "Driver={SQL Server};Server=NomDuServeur;Database=NomDeLaBase;" & _
"Uid=NomUtilisateur;Pwd=MotDePasse;"
.Execute Requete
.Close
End With
Set Cnx = Nothing
End Sub