Public Sub SortCategories()
Dim moBubbleSort As clsBubbleSort
Dim TD As Recordset
Dim DB As Database
Dim DBP As String
Dim msArr() As String
 
DBP = Datenbankpfad
 
Set DB = Workspaces(0).OpenDatabase(DBP, False, False)
Set TD = DB.OpenRecordset("Categories")
 
If Not TD.BOF And Not TD.EOF Then
 TD.MoveFirst
 RC = TD.RecordCount
Else
 MsgBox "Database Error while sorting categories!", vbCritical + vbOKOnly, _
   "Error!"
 Exit Sub
End If
 
ReDim msArr(RC)
 
For i = 0 To RC
 msArr(i) = TD("CatName") 'Hier kommt der FEHLER!
 TD.MoveNext
Next i
 
TD.Close
 
With moBubbleSort
 .SortOrder = False
 Call .SortStringArray(msArr(), LBound(msArr()), UBound(msArr()))
End With
DoEvents
 
Set TD = DB.OpenRecordset("Categories")
TD.Edit
For i = 0 To RC
 TD("CatName") = msArr(i)
 TD.MoveNext
Next i
 
TD.Close
DB.Close
Set TD = Nothing
Set DB = Nothing
DoEvents
End Sub