Søge funktion- har lavet nogle søge felter men man skal skrive

Hej

jeg har lavet disse søge fleter, men man skal skrive hele ordet for at den finder posten....kan man ikke lave så den finder posten på dele af ordet....

feks.  søg: la

resultat : lars

Her er koden til funktionen jeg bruger:

Dim SQLStr As String
    SQLStr = GetFilter(F)
    If Len(SQLStr) = 0 Then
        F.FilterOn = False
    Else
        F.Filter = SQLStr
        F.FilterOn = True
        If F.RecordsetClone.RecordCount = 0 Then
            MsgBox "Der er ingen poster, som opfylder kriteriet!", vbInformation, "Ingen poster!"
        End If
    End If

mv

Lars
   
End Function