مشكل الفلترة

السلام عليكم ورحمة الله تعالى وبركاته ،،

واجهتني مشكلة في عمل فلترة في قاعدة بيانات اكسس باستعمال تعليمة الـSql

Sql = "select * from Facture where ClientName='" & Combo1.Text & "'"

وبعدها عرض الناتج على ListeView

الكود كاملا

Private Sub Combo2_Click()

Call connect
Sql = "select * from Facture where ClientName='" & Combo1.Text & "'"
Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic,adCmdText

If (Rs.RecordCount = 0) Then
    MsgBox "Facture introuvable veuillez bien saisir le Client", vbOKOnly, "Erreur"
    Combo1.SetFocus
Else

  ListView1.ListItems.Clear
  While Not Rs.EOF
   Set item = ListView1.ListItems.Add(, , Rs.Fields("CODEFAC"))
            item.SubItems(1) = Rs.Fields("AnnédeFabrication")
            item.SubItems(2) = Rs.Fields("Constructeur")
            item.SubItems(3) = Rs.Fields("NumerodeFabrication")
            Rs.MoveNext


    Wend

    Call deconnect
    End If

    Call deconnect

End Sub

عند الضغط على المكون Combo2 ووضع الاختيار الدي هو Facture ( نفس اسم الجدول )

المفروض ان يضهر الناتج على ListeView لكن يعطيني الخطأ

Aucune valeur  donnée pour un ou plusieur des parametres requis

هل من حل و شكرا