[VBA] Probleme de requete SQL

Bonjour,

J'ai un probleme avec VBA et un serveur MS SQL 2005. Je n'arrive pas a executé de requete SQL alors que la connection fonctionne.

Voici mon code :

Private Sub CommandButton1_Click()
Dim SQL As String

'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=monip\SQLEXPRESS; Database=IT_Demo; Uid=user;Pwd=pass;"
End With

cn.Open

MsgBox cn 'j'affiche le résultat de la connection

Docmd.RunSQL "select * From dbo.table1"

Exit Sub

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

Il me sort une erreur 424 : object requis. Je ne comprend pas.

Si quelqu'un peu m'aider.

Cordialement.

DeWaRs