Private Sub Command1_Click() Load ORADC1(1) With ORADC1(1) .Connect = "user/password" .DatabaseName = "database" .RecordSource = SQL .Refresh End With Load DBGrid1(1) 'DataGrid は不可 With DBGrid1(1) .Move 0, 0, 5760, 2880 .Visible = True Set .DataSource = ORADC1(1).Object '.Object プロパティを忘れずに End With End Sub