Dim oConn As ADODB.Connection
Dim oRS As Recordset
Set oConn = New ADODB.Connection
Set oRS = New ADODB.Recordset
 
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\temp" _
  & ";Extended Properties=Paradox 7.x;Persist Security Info=False"
 
With oRS
    .ActiveConnection = oConn
    .CursorLocation = adUseClient
    .Source = "SELECT Mandant, Firma1 FROM Mandant ORDER BY Mandant"
    .Open
  For i = 0 To .RecordCount - 1
    cmbKaufmannMandant.AddItem .Fields("Firma1"), .Fields("Mandant") - 1
    .MoveNext
  Next i
  .Close
End With