RecordSet bağlantı hatası

[a_self_lion]

Selam Arkadaşlar;

Private Sub CommandButton1_Click()
Dim SQLTEX As String

Dim rst As New ADODB.Recordset

If TextBox5.Value = "" Then
MsgBox "Birinci Tarihi Seçin veya Üzerine tıklayın"
DTPicker1.SetFocus
Exit Sub
End If
If TextBox6.Value = "" Then
MsgBox "İkinci Tarihi Seçin veya Üzerine tıklayın"
DTPicker2.SetFocus
Exit Sub
End If

If DTPicker1.Value > DTPicker2.Value Then
MsgBox "ikinci tarih ilktarihten sonra olmalı. Önce Olamaz"
DTPicker2.SetFocus

Exit Sub
End If

Worksheets("SATISLAR").Visible = True
Worksheets("SATISLAR").Select


'a ve de sutunları seçilip siliniyor

Columns("A:D").Select
Selection.ClearContents

[a1] = "BAŞ.TARİHİ"
[a2] = "BİT.TARİHİ"
[b1] = DTPicker1.Value
[b2] = DTPicker2.Value

' A1 A2 B1 B2 KALIN YAPILIP SOLA DAYANIYOR
Range("A1:B2").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = True
    Range("A3").Select

TARIH1 = TextBox5.Text
TARIH2 = TextBox6.Text
'YIL = TextBox3.Text
'Dim SAYFA As Integer
'SAYFA = rapor

'sql bağlantı ayarları yapılıyor
Call Main

'Set cnt = New ADODB.Connection
'strConn = "PROVIDER=SQLOLEDB;"
'strConn = strConn & "DATA SOURCE=192.168.0.7;INITIAL CATALOG=data09;"
'strConn = strConn & " INTEGRATED SECURITY=sspi;"
'cnt.Open strConn
SQLCON.Open


Set rst = New ADODB.Recordset
With rst
.ActiveConnection = SQLCON
' sql sorgusu yapılıyor
SQLTEX = "SELECT ADSDOS_MLZ_KOD,ADSDOS_ACK,SUM(ADSDOS_STK_MIK) AS MIKTAR,SUM(ADSDOS_NET_TLL) AS TLTUTAR FROM ADSDOS" & vbCrLf
SQLTEX = SQLTEXT & "WHERE ADSDOS_TAR BETWEEN '" + TARIH1 + "' AND '" + TARIH2 + "' AND ADSDOS_PAK_KOD = '' AND" & vbCrLf
SQLTEX = SQLTEXT & "ADSDOS_PAK_KOD = '' AND ADSDOS_SAT_TIP <> '5' GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK" & vbCrLf

'sorgu = "SELECT  ADSDOS_MLZ_KOD, ADSDOS_ACK, SUM(ADSDOS_STK_MIK) AS MIKTAR,  SUM(ADSDOS_NET_TLL) AS TLTUTAR  FROM ADSDOS  WHERE    ADSDOS_TAR BETWEEN '" + TARIH1 + "' AND '" + TARIH2 + "' AND ADSDOS_PAK_KOD = '' AND    ADSDOS_PAK_KOD = ''  AND ADSDOS_SAT_TIP <> '5'  GROUP BY ADSDOS_MLZ_KOD, ADSDOS_ACK"
'sorgu = "select ADSDOS_MLZ_KOD, ADSDOS_DEP, sum(ADSDOS_STK_MIK),sum(ADSDOS_NET_TLL), ADSDOS_ACK FROM ADSDOS WHERE ADSDOS_TAR BETWEEN '" + TARIH1 + "' AND '" + TARIH2 + "' AND ADSDOS_PAK_KOD = '' group by ADSDOS_MLZ_KOD, ADSDOS_DEP, ADSDOS_ACK"
[b].Open SQLTEX[/b]

Sheets("SATISLAR").Cells(5, 1).CopyFromRecordset rst
.Close
End With
SQLCON.Close

Set rst = Nothing
Set SQLCON = Nothing

Worksheets("SATISLAR").Visible = True

Worksheets("İÇECEK SİPARİŞ").Select
[C2] = DTPicker1.Value
[E2] = DTPicker2.Value
[H2] = Date
Unload Me

.Open SQLTEX Bu satırda hata vermesinin sebebi ne olabilir. codlamalarda mı bağlantıdamı nerde hata yapıyor olabilirim.