Dim db As New ADODB.Connection
dim rs_graph_1 As New ADODB.Recordset
Dim CPw1   As New ADODB.Command
.
.
With db
    .CursorLocation = adUseClient
    .Provider = "MSDAORA"
    .Properties("Data source").Value = "aice10g"
    .Properties("user id").Value = "disegn"
    .Properties("password").Value = "disegn"
    .Open
     
End With
Set rs_graph_1.ActiveConnection = db
rs_graph_1.CursorLocation = adUseClient


With CPw1
         .ActiveConnection = db
         .CommandType = adCmdText
End With
CPw1.CommandText = "select...."
        Set rs_graph_1 = CPw1.Execute

 Set Form1.Chart2D1.DataSource = rs_graph_1(вот тут ощибка-Ошибка компиляции.Иетод или участник данных не найден)