sExcelFile = "Exceldatei" 
 
sTabelle = "Excel_Export" 
 
Set Conn = New ADODB.Connection 
Conn.CursorLocation = adUseClient 
 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
  "Extended Properties=Excel 8.0;" & _ 
  "Data Source=" & sExcelFile & ";" 
 
Set RS = New ADODB.Recordset 
RS.Open "SELECT * FROM [" & sTabelle & "$]", Conn, _ 
  adOpenKeyset, adLockOptimistic 
 
 
Set dbAccess = Workspaces(0).OpenDatabase("datenbank.mdb") 
Set TabAccess = dbAccess.OpenRecordset("Optimierungsdatenbank") 
 
 
 
While Not RS.EOF 
  If RS(0) <> "" Then 
    TabAccess.AddNew 
    For I = 0 To 38 
      TabAccess(I) = RS(I) 
    Next I 
    TabAccess.Update 
  End If 
  RS.MoveNext 
Wend

Michael Rohrhirsch