Ecrire dans une base de donnée avec Excel VBA

Bonjour,
Je désire me connecter à une base de donnée présente sur SQL SERVER et insérer des lignes dans une table gràce à VBA. J'utilise une connection ODBC et SQL SERVER comme pilote. Je n'ai pas de mot de passe à entrer la connexion est "trusted"

j'ai tenter plusieurs codes sans succès, le plus avancé étant :

Public cN As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub conNect()
Set cN = New ADODB.Connection
dbPath = Path
cN.ConnectionString = "Provider=SQLOLEDB;Data Source=SQL2000;Initial Catalog=APPSIS_ProdA; User ID=Mon_user_ID;"
cN.Open
End Sub

(déja là ça marche pas il ne reconnait pas mon UID)

et ensuite pour faire mes manip sql :

Sub manip()
Module1.conNect
rs.Open ("INSERT INTO Ma-table VALUES ('3')"), cN

End Sub

Si vous pouvez m'expliquer d'où vient mon (mes) problèmes, je vous en serait très reconnaissant parecque je ne vais bientôt plus avoir de cheveux à force de me les arracher!