Option Explicit
Private c As ADODB.Connection
Private r As ADODB.Recordset
Private Sub Form_Load()
Set c = New ADODB.Connection
Set r = New ADODB.Recordset
c.ConnectionString = "DSN=MS Access Database;DBQ=d:\a.mdb"
c.Open
r.Open "SELECT * FROM a", c
Set DataGrid1.DataSource = r