bekomme und beim anderen nicht ?
Hier mein Code:
Sub AccExport()
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
'Verbindung zum Provider herstellen
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Netto.mdb;"
'Tabelle öffen
Set DBS = New ADODB.Recordset
.......