Item cannot be found in the collection corresponding to the requested name or ordinal (MS ACCESS)

Hi, I don't understand what is wrong in there,

    If Not IsNull(txtID.Value) Then
   
    Const conNumButtons = 8
   
    Dim con As Object
    Dim rs As Object
    Dim stSql As String
    Dim strID As Integer
   
    strID = Me.txtID.Value
   
    ' Open the table of Switchboard Items, and find
    ' the first item for this Switchboard Page.
    Set con = Application.CurrentProject.Connection
   
    stSql = "SELECT no_facture FROM tblFacture"
    stSql = stSql & " WHERE tblFacture.no_dossier1 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier2 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier3 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier4 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier5 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier6 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier7 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier8 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier9 like " & strID & ""
    stSql = stSql & " OR tblFacture.no_dossier10 like " & strID & ";"
   
    Set rs = CreateObject("ADODB.Recordset")
   
    rs.Open stSql, con, 1   ' 1 = adOpenKeyset
   
    ' If there are no options for this Switchboard Page,
    ' display a message.  Otherwise, fill the page with the items.
    If IsNull(rs![ItemText]) Then
        Me.txtFacture.Visible = False
        Me.lblFacture.Visible = False
    Else
        Me.txtFacture.Value = rs![ItemText]
        Me.txtFacture.Visible = True
        Me.lblFacture.Visible = True
    End If

    ' Close the recordset and the database.
    rs.Close
    Set rs = Nothing
    Set con = Nothing
   
    End If

I'm trying to get the value in the recordset and display it in the txtFacture textbox.  I getting the error message :  Item cannot be found in the collection corresponding to the requested name or ordinal.

Plz help.  Its urgent.

RegardsStart Free Trial