Run-time error '3709' hatası

[arslanbey]

Run-time error '3709'
bağlantı,bu işlemi gerçekleştirmek için kullanılmıyor. kapalı veya koşullarda geçersiz.diye hata veriyor birde kodun şu bölümü hata veriyor sarı rengek oluyor.(rs.Open SQL, AdoCN)

Sub auto_open()
   '===========================
   Call STOK_VERI_TAB_BAGLAN
   '===========================
        Dim rs As ADODB.Recordset
        Dim SQL As String
 
        Set rs = New ADODB.Recordset
 
        SQL = "SELECT KOD, Count(SIRA) AS say_sira FROM STOK GROUP BY KOD"
            rs.Open SQL, AdoCN
            Do While Not rs.EOF
 
                If (rs.Fields("say_sira")) < 10 Then
                    MsgBox rs.Fields("KOD") & " numaralı ürünün stogu azalmış"
                End If
                rs.MoveNext
 
            Loop
        rs.Close
 
        Set rs = Nothing
   '=========================
   Call VERI_TBNI_BGLNTI_KES
   '=========================
frmIslemStok.Show
 
End Sub