probleme de connection

Bonjour,
je voudrai me connecter à une base de donnée ACCESS via VB :
Mon code est le suivant : 

Private Sub Command2_Click()
    Dim cn As ADODB.Connection
    Dim records As ADODB.Recordset

    Set cn = New Connection
    Set records = New Recordset
    cn.Provider = "Microsft.Jet.OLEDB.4.0"
(je n'est pas encore mis connectionString et Open mais c'est pas ça le probleme)

Et j'ai ce message d'erreur : "Erreur de compilation : Utilisation incorrecte du mot clé New" et j'ai bien crée la référence à la bibliothèque Microsoft Activex Data Object 2.8 Library.
Merci de votre réponse


   

    'Set cn = New Connection
    'Set records = New Recordset

    cn.Provider = "Microsft.Jet.OLEDB.4.0"
   ...

Merci encore