Как бороться с управлением DBGrid?

Question

SQL> desc admin 
       Name Null? Type 
      ------------------------------------- 
       NAME VARCHAR2(20) 
       PRIVILEDGE VARCHAR2(20) 
       CODE NUMBER(38) 
       PASS VARCHAR2(20) 

       Private Sub Form_Load() 
       Set RS = New ADODB.Recordset 
       If RS.State = 1 Then RS.Close 
       opencn 
       RS.Open "ADMIN", CN, adOpenDynamic, adLockOptimistic, adCmdTable 
       Set DBGrid1.DataSource = RS 
RS.Close 
End Sub 

Ошибка я получаю

*Error 430 at line : Set DBGrid1.DataSource = RS 
Class does not support automation or does not support expected interface* 

Answer 1

Паспорт Bound сетка (DBGrid) предназначена для использования с DAO, в то время как DataGrid для использования с ADO.

В наборе: щелкните правой кнопкой мыши, выберите «Компоненты ...», и убедитесь, что 'Microsoft DataGrid Control 6.0 (SP6) (OLEDB)' выбран, не'Microsoft Data Bound Grid Control 5.0 (SP3)'.