Dim cnn As New ADODB.Connection ' объект для связывания с источником данных
    Dim cmd As New ADODB.Command ' объект для запроса
    Dim rst As New ADODB.Recordset ' объект для набора данных
    cnn.ConnectionString = "DSN=ved" ' источник данных
    cnn.Open                         ' связываемся с данными

    cmd.ActiveConnection = cnn ' определили источник данных
    cmd.CommandText =  " select * .................." 
                       
     rst.Open cmd
     While Not rst.EOF
      cc1 = rst.GetRows( 1 )
      If tt = cc1( 2 ,  0 ) Then ' если время не изминилось то
       Cells(i + 1, j).Value = cc1(4, 0) '
       Cells(i +  2 , j).Value = cc1( 5 ,  0 ) ' записываем значения
       Cells(i + 3, j).Value = cc1(6, 0) ' в соответствующие строчки
       Cells(i +  4 , j).Value = cc1( 7 ,  0 ) '
     Wend