Private Sub DatenbestandReduzieren()
'....Datensatzanzahl einer TABELLE (!!!)= Text1.txt-anzahl reduzieren
Dim z As Integer
Dim goDb As DAO.Database
Set goDb = goWs.OpenDatabase(gsStammdatDB, True, False)
Set mkRs = goDb.OpenRecordset("SELECT * FROM Irgendwas ORDER BY sowieso DESC")
 
z = 0
Do
z = z + 1
  If z > Text1.Text Then
    mkRs.Delete
  End If
  mkRs.MoveNext
Loop Until mkRs.EOF
    '...Recordset [Irgendwas]schließen
    mkRs.Close
    Set mkRs = Nothing
End Sub