Zitat:

Ich galube ich kapier nicht, was du mit Recordset.Open meinst. Ich erstelle ein Recordset Set objRecordset = CreateObject("ADODB.Recordset")

Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Private Sub Form_Load()
 
Set con = New ADODB.Connection
With con
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "Deine Datenbank inkl. Verzeichnis"
    .Open
End With
 
Set rec = New ADODB.Recordset
Sql = "Select * From Tabelle Where ID > 0"
rec.Open Sql, con, adOpenKeyset, adLockReadOnly
 
While Not rec.EOF
    Irgendwas = rec.Fields("ID")
    ' Hier was machen mit dem Wert, in Tabelle, Grid oder sonst was speichern 
    ' und sei es
    MsgBox Irgendwas
    rec.MoveNext
Wend
rec.Close
con.Close
Set rec = Nothing
Set con = Nothing

Zitat:

und ein command Objekt

Zitat:

Wenn auf nicht vorhandene Daten zugegriffen wird, bleibt mein Recordset leer und Excel stürzt ab. Mit dem WHERE Zusatz bleibt das Recordset einfach leer. Allerdings dauert das wie gesagt sehr lange, wenn doch Daten vorhanden sind.

Zitat:

In wie weit ich da jetzt etwas umstellen sollte, verstehe ich nicht, da reicht meine Erfahrung in der ganzen Geschichte wohl nicht.