Dim rsid As ADODB.Recordset
Set rsid = New ADODB.Recordset
With rsid
    .ActiveConnection = conn
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    SQL = "select max(adr_id) as maxid from adressen"
    .Open SQL
End With
Debug.Print rsid!maxid
 
Dim i As Integer
Dim rs1clone As ADODB.Recordset
Set rs1clone = rs1.Clone
i = rsid!maxid
If rs1clone.BOF = False Then
    While Not rs1clone.EOF
        i = IIf(rs1clone!lieferant < i, rs1clone!lieferant, i)
        rs1clone.MoveNext
    Wend
End If
Debug.Print i
Do Until i = rsid!maxid + 1
    rs1clone.Find "lieferant = " & i & ""
    If Not i = rsid!maxid + 1 Then
        Debug.Print i
        rs1.Filter = "lieferant = " & i & ""
        Set sevGrid1.Recordset = rs1
        sevGrid1.Refresh
        'Hier will ich die  Daten weiterverarbeiten
        MsgBox "BL für Lieferant ID" + Str(i) + " erstellt"
        i = i + 1
    End If
    rs1.Filter = adFilterNone
Loop