Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
 
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Password=;User ID=Admin; Data" & _
  "Source=D:paradox; Extended Properties=Paradox 3.x;"
rst.Open "Select * from Tabel1", cnn, adOpenDynamic, adLockBatchOptimistic
 
 
    With Me.grdListe
        .CreateClone = True
        .LockUpdate True
        .Clear True
 
        Set .Recordset = rst  'HIER KOMMT DER FEHLER!!!
 
        .LockUpdate False
        .Refresh
        .AllowEdit = False
        .AllowDelete = False
        .AutoEdit = False
        .AutoInsert = False
        .AutoSort = True
        .Visible = True
        DoEvents
        bFilterTextEdit = False
    End With
rst.Close
cnn.Close