Søge i database

Hej alle,

Jeg sidder og skal foretage en søgning i en database (Access), ud fra en SQL-sætning.

Jeg benytter følgende kode:


        SQL = "SELECT * FROM opskrifter WHERE navn LIKE '*" + txtNavn.Text + "*' ORDER BY navn;"
        MsgBox SQL
        Set rs = db.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)
        Do While Not rs.EOF
            'lstResultater.AddItem (rs.Fields("navn"))
            MsgBox rs.Fields("navn")
        Loop

Problemet med dette er imidlertid, at while-løkken bliver uendelig, selvom der kun er én række i tabellen, som indeholder kriteriet. Er der nogen som kan komme med en logisk forklaring og evt. løsning på dette? På forhånd tak.

Programmet bliver lavet i VB6.