Office: Variable mit Loop füllen

Hallo!

Mein Set rs = db.... funktioniert nicht - aber warum? Ich möchte die Spalte "TLC" (von der Tabelle ScheduleInfoLine) mit der String Variablen "PTLC" vergleichen - und dann nur dessen Werte bekommen.

Code:

Private Sub tester()
        Private Sub tester()
        Dim PInfoLine As String
        PInfoLine = "Your Duty"
        
        Dim db As Database
        Dim rs As DAO.Recordset
        
        Dim PTLC As String 'just for demo
        PTLC = "CWT" 'just for demo
        
        Set db = CurrentDb
        Set rs = db.OpenRecordset("SELECT * FROM ScheduleInfoLine WHERE TLC =" & PTLC)
        'Set rs = db.OpenRecordset(Name:="ScheduleInfoLine", Type:=dbOpenDynaset)
            With rs
            .MoveFirst
            Do Until rs.EOF
                PInfoLine = PInfoLine & vbCrLf & rs!InfoLine
    rs.MoveNext
            Loop
            End With
    MsgBox PInfoLine
                                        
    End Sub

Ich bekomme hier immer wieder einen Fehler.. 1 Parameter wurde erwartet - aber es wurden zu wenig Parameter übergeben.

Idee?