Soru Kapalı dosyadan veri alma hatası

[s.savas]

Merhaba arkadaşlar.
Kapalı dosyadan veri almaya çalışıyorum.
Resimdeki hatayı aşamıyorum.
Algoritmam şu şekilde:
Combobox10 daki toplantı no seçilince veritabanındaki itk_talep tablosundaki toplantı_no alanı ile ilişkili verilerin ITK_KARAR_DOSYASI şablonuna A3 satırından itibaren gelmesi gerekiyor.

Private Sub ComboBox10_Click()
Application.ScreenUpdating = False
Dim s1, s2 As Worksheet
Dim i As Long

Set s1 = Sheets("ITK_KARAR_DOSYASI")
Set s2 = Sheets("ITK_KARAR_TUTANAĞI")

i = WorksheetFunction.Max(s1.[A:A]) + 3

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

rs.Open "select * from itk_talep WHERE [itk_talep].toplantı_no='" & ComboBox10.Text & "';", baglan, 1, 1
If rs.RecordCount >= 1 Then

s1.Range("A1").Value = rs.fields("toplantı_no")


ElseIf Not rs.RecordCount >= 1 Then
MsgBox "Program kaydı bulunamadı", vbInformation, ""
Exit Sub
End If
rs.Close

Call BAGLANTI
Set rs = CreateObject("ADODB.Recordset")
prog = s1.Range("A1")

strSQL = "SELECT talep_no,taşınır2_düzey_kodu,talep_tarihi " & "FROM itk_talep " & "WHERE toplantı_no='" & prog
           rs.Open strSQL, baglan, 1, 1
s1.Range("A3").CopyFromRecordset rs
rs.Close

End Sub