Sub Datenspeichern()
 
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
 
        Dim DAOEngine As DAO.DBEngine
        DAOEngine = New DAO.DBEngine
 
        db = DAOEngine.OpenDatabase("S:\Daten.xls", _
          DAO.DriverPromptEnum.dbDriverNoPrompt, False, "Excel" & _
          "5.0;DATABASE=Drucker")
        rs = db.OpenRecordset("Data$", DAO.RecordsetTypeEnum.dbOpenDynaset)
 
        rs.LockEdits = False
        rs.MoveLast()
 
        For I = 1 To 11
            DataAlt$(I) = rs(DataFeld(I)).Value
        Next
 
        rs.LockEdits = False
        rs.AddNew()
 
        For I = 1 To 11
            If Data$(I) = 0 Then Data$(I) = DataAlt$(I)
            rs(DataFeld(I)).Value = Val(Data$(I))
        Next
 
        rs("Datum").Value = Date.Today
        rs.Update()
 
        rs.Close()
        db.Close()
 
    End Sub