Query wordt niet uitgevoerd

[EeziDeezi]

Beste,
Ik probeer al een tijdje het volgende voor elkaar te krijgen maar om één of andere duistere reden werkt het niet.

Ik heb een testdatabase opgemaakt in Access. Ik wil deze database benaderen vanuit een andere applicatie via VBA script. Daartoe heb ik de database aan 'ODBC gegevensbronnen' toegevoegd onder systeembeheer.
Het lukt mij om de database te openen vanuit een script en ik kan een tabel uitlezen door de volgende instructie: SELECT * FROM Parts;

Indien ik echter een filtering wil toepassing blijft mijn recordset leeg. Is hier een verklaring voor? Of kan iemand mij zeggen wat ik moet doen om het op te lossen?

Nog even het stukje code wat ik gebruik:

[FONT="Courier New"]If gbl_IsDBOpen Then ' while database is open
    strSearch = txtSearchField.Value
    If Not strSearch = "" Then ' check if search string has any characters
        Set gbl_rs = New ADODB.Recordset
        strQuery = "SELECT * FROM Parts WHERE (PartNo LIKE '" & strSearch & "*');"
        Debug.Print strQuery
        Set comm = New ADODB.Command
        Set comm.ActiveConnection = gbl_db
        comm.CommandText = strQuery
        Set gbl_rs = comm.Execute
        lstResults.Clear    ' Clear results list
     
        Do While Not gbl_rs.EOF
            Debug.Print (gbl_rs("Description"))
            lstResults.AddItem gbl_rs("PartNo") & Chr(9) & gbl_rs("Description")
            gbl_rs.MoveNext
        Loop
    Else
        lstResults.Clear    ' Clear results list
    End If
End If[/FONT]

Alvast bedankt voor jullie reactie.