Ich habe das ganze jetzt mal wie folgt umgeschrieben und es funktioniert soweit. Nun müssen die Ergebnisse nur noch in eine Listenfeld eingetragen werden. 
Kann mir da evtl jemand helfen? 

Private Sub txtSuche_KeyDown(KeyCode As Integer, Shift As Integer) 

If KeyCode = 13 Then 'Enter gedrückt 

Dim Suchnr As String 
Dim strKriterium As String 
Dim ProduktionA As DAO.Recordset 
Dim ProduktionB As DAO.Recordset 
Dim db As DAO.Database 
'Dim dbs As DAO.Database 

Set db = CurrentDb 
'Set dbs = CurrentDb 
Set ProduktionA = db.OpenRecordset("Produzierte Ansätze Teig", RecordsetTypeEnum.dbOpenDynaset) 
Set ProduktionB = db.OpenRecordset("Produzierte Ansätze Teig", RecordsetTypeEnum.dbOpenDynaset) 

Suchnr = txtSuche.Text 
strKriterium = "[Teig Nummer] LIKE '" & Suchnr & "'" 

ProduktionA.FindFirst strKriterium 

    Do Until ProduktionA.NoMatch 
        Debug.Print "ProduktionA" 
        Debug.Print ProduktionA.Fields("ID").Value 
        'lstProduktionA.Column(1, 1) = ProduktionA.Fields("ID").Value 
        Debug.Print ProduktionA.Fields("Verantwortlicher").Value 
        'lstProduktionA.Column(2, 1) = ProduktionA.Fields("Verantwortlicher").Value 
        Debug.Print ProduktionA.Fields("Teig Nummer").Value 
        'lstProduktionA.Column(3, 1) = ProduktionA.Fields("Teig Nummer").Value 
        Debug.Print ProduktionA.Fields("Herstelldatum").Value 
        'lstProduktionA.Column(4, 1) = ProduktionA.Fields("Herstelldatum").Value 
        Debug.Print ProduktionA.Fields("Mindesthaltbar").Value 
        'lstProduktionA.Column(5, 1) = ProduktionA.Fields("Mindesthaltbar").Value 
        Debug.Print ProduktionA.Fields("Typ").Value 
        'lstProduktionA.Column(6, 1) = ProduktionA.Fields("Typ").Value 
        ProduktionA.FindNext strKriterium 
    Loop 
  
ProduktionB.FindFirst strKriterium 

    Do Until ProduktionB.NoMatch 
        Debug.Print "ProduktionB" 
        Debug.Print ProduktionB.Fields("ID").Value 
        'lstProduktionA.Column(1, 1) = ProduktionA.Fields("ID").Value 
        Debug.Print ProduktionB.Fields("Verantwortlicher").Value 
        'lstProduktionA.Column(2, 1) = ProduktionA.Fields("Verantwortlicher").Value 
        Debug.Print ProduktionB.Fields("Teig Nummer").Value 
        'lstProduktionA.Column(3, 1) = ProduktionA.Fields("Teig Nummer").Value 
        Debug.Print ProduktionB.Fields("Herstelldatum").Value 
        'lstProduktionA.Column(4, 1) = ProduktionA.Fields("Herstelldatum").Value 
        Debug.Print ProduktionB.Fields("Mindesthaltbar").Value 
        'lstProduktionA.Column(5, 1) = ProduktionA.Fields("Mindesthaltbar").Value 
        Debug.Print ProduktionB.Fields("Typ").Value 
        'lstProduktionA.Column(6, 1) = ProduktionA.Fields("Typ").Value 
        ProduktionB.FindNext strKriterium 
    Loop 
    
    
ProduktionA.Close 
ProduktionB.Close 
Set ProduktionA = Nothing 
Set ProduktionB = Nothing 
Set db = Nothing 
'Set dbs = Nothing 

ElseIf KeyCode = 8 Then 

txtSuche = Null 

End If 

End Sub