jetzt VBA :) Problem mit stringübergabe

[Chrisi99]

lansam werd ich verwirrt (siehe Bild!)

hier nochmal mein Code, mittlerweile bin ich schon durcheinander

Private Sub Befehl109_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strfilter As String
Dim str As String
Dim such As String

Set db = CurrentDb()
Set rst = db.OpenRecordset("qryTest")

str = txt_suchnam 'man gibt zb D* in die Textbox ein

'Testweise Ausgabe in einer TXTBOX
txt_such = """P1Name LIKE" & " " & str & " """
'Ende

strfilter = "P1NAME = '" & txt_such & "'" 'Filterstring
rst.FindFirst strfilter

'Ausgabe an Textfeld
txt_filter = rst!P1NAME

While Not rst.NoMatch
Debug.Print rst("P1Name")
rst.FindNext strfilter
Wend
rst.Close
End Sub

wenn wer zeit hat