How to deal with DBGrid control in vb6 ang oracle?

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