Hjælp til SQL og Text box

jeg skal bruge lidt hjælp til at få en sql sætning til at fatte at text boxén indeholder søge ordet:

Private Sub cmd_sog_Click()

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
'Binder databasen til variablen mystring

mystring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB1.mdb;Persist Security Info=False"
con.Open (mystring)

mysql = "SELECT * FROM Liste WHERE Navn = " & (" '" & txt_sog.Text & "%'")

rs.Open mysql, con, adOpenDynamic

Do Until rs.EOF
ls_resul.AddItem (rs("navn"))
  rs.MoveNext
Loop

Set rs = Nothing
Set con = Nothing

End Sub

Hvis jeg bruger denne, søger den på alle i Liste i kollonen Navn og finder alle der begynder med "O"


mysql ='SELECT * FROM listeWHERE Navn LIKE 'O%'"

Men jeg vil nu gerne have at det skal være et søge felt :-)

Er der nogen der kan hjælpe?