If Scol = "" Then
SQLA = " SELECT  Videoliste.* FROM Ausleihe INNER JOIN Videoliste ON" & _
  "Ausleihe.Nr = Videoliste.Nr order by videoliste.Nr"
Set Tabellea = Db.OpenRecordset(SQLA)
 
SQLB = "SELECT DISTINCT Videoliste.* FROM Bestellung INNER JOIN Videoliste ON" & _
  "Bestellung.Nr = Videoliste.Nr "
Set Tabelleb = Db.OpenRecordset(SQLB)
 
Else
 
SQLA = " SELECT Videoliste.* FROM Ausleihe INNER JOIN Videoliste ON Ausleihe.Nr" & _
  "= Videoliste.Nr order by videoliste." + Scol + ",videoliste.Nr"
Set Tabellea = Db.OpenRecordset(SQLA)
 
SQLB = "SELECT DISTINCT Videoliste.* FROM Bestellung INNER JOIN Videoliste ON" & _
  "Bestellung.Nr = Videoliste.Nr order by videoliste." + Scol + ",videoliste.Nr"
Set Tabelleb = Db.OpenRecordset(SQLB)
End If
 
 
With MSFlexGrid1
.Redraw = False
For c = 0 To .Cols - 1
    .Col = c
 For r = 0 To intRows - 1
        .Row = r
 
        If .TextMatrix(r, 0) = Tabellea("Nr") And .TextMatrix(r, 0) = Tabelleb( _
          "Nr") Then
        .CellForeColor = &HFF00&
        Tabellea.MoveNext
        Tabelleb.MoveNext
        If Tabellea.EOF Then Tabellea.MoveFirst
        If Tabelleb.EOF Then Tabelleb.MoveFirst
        End If
 
 
          If Tabelleb.RecordCount > 1 Then
        If .TextMatrix(r, 0) = Tabelleb("Nr") Then
         .CellForeColor = &HFF0000
         Tabelleb.MoveNext
        If Tabelleb.EOF Then Tabelleb.MoveFirst
        End If
        End If
 
 
        If Tabellea.RecordCount > 1 Then
        If .TextMatrix(r, 0) = Tabellea("Nr") Then
         .CellForeColor = &HFF&
         Tabellea.MoveNext
            If Tabellea.EOF Then Tabellea.MoveFirst
        End If
        End If
 
Next r
Next c
.Redraw = True
End With

. 
.
.
  If .TextMatrix(r, 0) = Tabellea("Nr") And .TextMatrix(r, 0) = Tabelleb("Nr") _
    Then
.
.
.