Je cherche à faire une connexion vers une base Acces en Ado ?

pour faire la connexion avec une base access il faut tapez le code suivant :
imports system.data.oledb     //declaration

 dim strcom as string "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="chemin de votre base de données"
Dim cn As New OleDbConnection(strcom)   //l objet de connexion
        cn.Open()
msgbox("ok connexion")
cn.close()