Dim rs As DAO.Recordset
Dim MyDB As DAO.Database
 StrSQL = "SELECT * FROM TBLDATA"
 Set MyDB = DBEngine.OpenDatabase(App.Path, True, False, "dBASE IV;")
    Set rs = MyDB.OpenRecordset(StrSQL)
       
             rs.AddNew
             rs("ID_FIELD") = rs.RecordCount + 1
             rs("DATA") = Now()
             rs("VREME") = Format(Now, "HH:MM:SS")
             rs.Update
             rs.Close