Insert qui ne fonctionne pas en vb

Bonjour à tous !

Je fais actuellement un programme en visual basic 6 avec base access 2000.

J'ai un problème avec les requête et notamment avec un "insert". Voici le code
//////// dans un module, les fonctions de connections/déconnect ///////////
Public cnx As New ADODB.Connection

Public Sub fncConnecter()
'Connexion a la Base de Donnée Access
cnx.Provider = "Microsoft.jet.OLEDB.4.0"
cnx.ConnectionString = "C:\Documents and Settings\Windows\Mes documents\PROJET FACTURIER\facturier.mdb" 'Remplacer ici par l'adresse de la base
cnx.Open
End Sub

Public Sub fncDeconnecter()
' Deconnexion à la Base de Donnée
cnx.Close
Set cnx = Nothing
End Sub


/////// Procédure d'ajout dans la base ///////
Private Sub Requete_CreateClient()
Dim MonRS As New ADODB.Recordset
Dim req1 As String

' Appel de la fonction de connexion
fncConnecter

' Exécution d'une requête
req1 = "INSERT into MAYENT (RSOC, VOIE, COMP, BDIS, CPOS, NOM) VALUES ('" & rsoc.Text & "', '" & adresse.Text & "', '" & comp.Text & "', '" & bdis.Text & "', '" & cpos.Text & "', '" & nom_contact & "');"
Set MonRS = cnx.Execute(req1)

' Fermer la connexion à la base Access
fncDeconnecter
End Sub



Il y aurait apparemment une erreur de syntaxe ?
Quelqu'un peut-il m'aider ? Merci d'avance

FAB