Передача данных из Firebird в Exel

        rs.Open "select ( turbine.electrical_load ) from turbine where ( (date_reg >= '" + mydate1 + "')and (kod_turbine = '7') )", cn
        Лист11.Range("Е_ПТ_пт").Value = Round(rs.Fields(0).Value, 3)
        rs.Close

rs.Open "select ( turbine.electrical_load ) from turbine where ( (date_reg >= '" + mydate1 + "')and (kod_turbine = '7') )", cn
rs.MoveFirst
Do While Not rs.EOF
    Лист11.Range("Е_ПТ_пт").Value = Round(rs.Fields(0).Value, 3)
    rs.Next
Loop
rs.Close

rs.Next

Лист11.Range("Е_ПТ_пт").CopyFromRecordset rs

rs.Open "select ( Round(turbine.electrical_load,3) ,turbine.date_reg)" _
& " from turbine where ( (date_reg >= '" + mydate1 + "')and (kod_turbine = '7') )", cn
 Лист11.Range("Е_ПТ_пт").CopyFromRecordset rs
 
rs.Close

rs.Open "select (turbine.electrical_load,turbine.date_reg)" _
& " from turbine where ( (date_reg >= '" + mydate1 + "')and (kod_turbine = '7') )", cn
Лист11.Range("Е_ПТ_пт").CopyFromRecordset rs
rs.Close

Лист11.Range("Е_ПТ_пт").CopyFromRecordset rs

'ýòà îïöèÿ çàñòàâëÿåò ñðåäó âûïîëíåíèÿ âûäàâàòü îøèáêó åñëè ïåðåìåííàÿ íå îáúÿâëåíà ÿâíî
Option Explicit
 
'ñîçäàåì îáúåêò Connection
Public cn As New ADODB.Connection
 
Public mydate1 As String
Public mydate2 As String
Public time_cond1 As Integer
Public bOK As Boolean
Public bOKt As Boolean
Public Const LOCALE_SDECIMAL = &HE ' Ðàçäåëèòåëü äåñÿòè÷íûõ ðàçðÿäîâ
Public Const LOCALE_SDATE = &H1D ' date separator
'èìïîðò API-ôóíêöèè "Sleep" èç áèáëèîòåêè "kernel32.dll"
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const LOCALE_SYSTEM_DEFAULT& = &H800
Public Const LOCALE_USER_DEFAULT& = &H400
 
Const cMAXLEN = 255
 
Private Declare Function apiGetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
 
Private Declare Function apiSetLocaleInfo Lib "kernel32" _
Alias "SetLocaleInfoA" (ByVal Locale As Long, _
ByVal LCType As Long, ByVal lpLCData As String) As Long
 
Function GetLocaleInfo(lngLCType As Long) As String
Dim lngLocale As Long
Dim strLCData As String, lngData As Long
Dim lngX As Long
 
strLCData = String$(cMAXLEN, 0)
lngData = cMAXLEN - 1
lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _
strLCData, lngData)
If lngX <> 0 Then
GetLocaleInfo = Left$(strLCData, lngX - 1)
End If
End Function
 
Function SetLocaleInfo(lngLCType As Long, lValue) As String
On Error Resume Next
Dim lngLocale As Long
Dim strLCData As String
Dim lngX As Long
 
strLCData = String$(cMAXLEN, 0)
strLCData = CStr(lValue) & String(cMAXLEN - Len(CStr(lValue)), 0)
lngX = apiSetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _
strLCData)
If lngX <> 0 Then
SetLocaleInfo = Left$(strLCData, lngX - 1)
End If
End Function
 
Sub pLoadFromDB()
    Dim sA1, sA2, sA, sB, s, sC As String
    Dim i As Integer
    
    sA1 = InputBox("Ââåäèòå àäðåñ ñåðâåðà Firebird", , shtSettings.Range("fb_host").Value)
    If sA1 <> "" Then shtSettings.Range("fb_host").Value = sA1
    sA2 = InputBox("Ââåäèòå ïóòü ê ôàéëó áàçû Firebird ('.FDB') (â ôàéëîâîé ñèñòåìå ñåðâåðà Firebird)", , shtSettings.Range("db_path").Value)
    If sA2 <> "" Then shtSettings.Range("db_path").Value = sA2
    sA = sA1 + ":" + sA2
    'ñòàòóñ
    frmStatus.l1 = "[" + sA + "] "
    sC = ThisWorkbook.FullName
    frmStatus.l2 = "[" + sC + "] "
    
    sB = shtSettings.Range("fbclient").Value
    If sB <> "" Then shtSettings.Range("fbclient").Value = sB
    
    'ñîáèðàåì ñòðîêó äëÿ ñîåäèíåíèÿ
    s = shtSettings.Range("conn_str1").Value + sA + _
        shtSettings.Range("conn_str2").Value + sB + _
        shtSettings.Range("conn_str3").Value
    
    cn.ConnectionString = s
    cn.Open
    
    bOK = False
    bOKt = False
    
    'ïîêàçûâàåì ôîðìó âûáîðà äàòû
    frmSelectDate.Show
    'ïîêàçûâàåì ôîðìó ââîäà ÷èñëà ÷àñîâ ðàáîòû àãðåãàòîâ
    frmSetTimes.Show
    
    'åñëè ïîëüçîâàòåëü â äèàëîãàõ íàæàë OK (à íå çàêðûë êðåñòèêîì)
    If bOK And bOKt Then
        frmStatus.Repaint
        Sleep 200
        
        'çàïèñûâàåì âðåìÿ â ÿ÷åéêè òàáëèöû
        Ëèñò11.Range("tau_ðàá_ÏÒ1").Value = mytime1
        Ëèñò11.Range("tau_ðàá_Ò11").Value = mytime2
        Ëèñò11.Range("tau_ðàá_Ò21").Value = mytime3
        
    time_cond1 = DateDiff("d", mydate1, mydate2)
    'shtSettings.Range("B19").Value = time_cond1
    
        'ñîçäàåì è íàñòðàèâàåì Recordset
        Dim rs As New ADODB.Recordset
        rs.CursorType = adOpenKeyset
        rs.LockType = adLockOptimistic
[/BASIC]
Это весь код до извлечения данных из БД, далеее я их извлекаю и вставляю в ячейки екселя. Вот здесь у меня проблема. я вытаскиваю значения в зависимости от даты, от начальной до конечной, мне нужны все значения и не известно сколько их будет, диапазон дат может быть различным. Пока я делаю так:
[BASIC]       rs.Open "select ( turbine.electrical_load ) from turbine where ( (date_reg >= '" + mydate1 + "')and (kod_turbine = '7') )", cn
        While Not rs.EOF
       Лист11.Range("Э_пт_ПТ1" & CStr(i)).Value = Round(rs.Fields(0).Value, 3)
    i = i + 1
    rs.MoveNext
    Wend

  Лист11.Range("Э_пт_ПТ1" & CStr(i)).Value

Лист11.Range("Э_пт_ПТ1")

Cells(1,1)=Range("A1")=[a1]

for i=1 to 10
cells(i,1)="Значение: " & i
next