Dim db As New ADODB.Connection
Dim rs 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.ActiveConnection = db
rs.CursorLocation = adUseClient

With CPw1
         .ActiveConnection = db
         .CommandType = adCmdText
         .Parameters.Append .CreateParameter("",  7 ,  1 )
         .Parameters.Append .CreateParameter("",  7 ,  1 )
         .Parameters.Append .CreateParameter("",  12 ,  1 )
End With

CPw1.CommandText = "select to_char(date_call,'dd/mm/yyyy') as ddd,to_char(date_call,'hh24:mi') as ttt,ext ,co ,num ,to_char(to_date(to_char(nvl(duration_sec,0)),'SSSSS'),'MI:SS') as duration_min,nvl(duration_sec,0)as duration_sec,IO,cd " & _
" from ats_total where trunc(date_call) between  ? and ? and io=?"
CPw1.Parameters( 0 ) = DFrom
CPw1.Parameters( 1 ) = DTo
CPw1.Parameters( 2 ) = io
Set rs = CPw1.Execute