Ho impostato un'origine dati ADO per un datagrid e funziona tutto a meraviglia. Come mai se faccio la stessa cosa per un DBGrid mi da "Errore Run Time 430: Class does not support Automation or does not support expected interface"???

Questo è il mio codice. Vi prego è da una settimana che impazzisco su 'ste griglie e ne ho davvero bisogno!

codice:
Private c As New ADODB.Connection
Private r As New ADODB.Recordset


Private Sub Form_Load()        
    With c
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = " & App.Path & "\reservations_vb.mdb"
      .ConnectionTimeout = 5
      .CursorLocation = adUseClient
      .Mode = adModeShareDenyNone
      .Open
    End With
    
    With r
      .ActiveConnection = c
      .LockType = adLockOptimistic
    End With
    
    r.Open ("SELECT * FROM reservers")
    
    Set DBGrid1.DataSource = r
    
    Set DataGrid1.DataSource = r
    
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    r.Close
    c.Close
End Sub