Per collegarti al database di acces non usare il data ma fai

Private rs As ADODB.Recordset
Private cn As ADODB.Connection

Set cn = New ADODB.Connection
cn.Open ...

Set rs = New ADODB.Recordset
rs.Open ...

Prova con questo che è piu semplice