Private DB As Database
Private Rs As Recordset
'-----------------------------------------
Private Sub Excelrein(ByVal sWorkbName As String)
 
  Set DB = DBEngine.OpenDatabase(sWorkbName, _
    False, False, "Excel 8.0;")
 
  Set Rs = DB.OpenRecordset("tab1$", dbOpenDynaset)
 
   Rs.AddNew
   Rs!zeit = 123
   Rs.Update
   Rs.MoveNext
   Rs.AddNew
   Rs!zeit = 3434
   Rs.Update
 
  DB.Close
 
  MsgBox "Fertig"
End Sub
'------------------------------------------
Private Sub Command1_Click()
 
Excelrein("c:\test.xls")
 
End Sub

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!