ado referansını ekle vb projene
Private Sub bit_Enter()

Finish = Timer

TotalTime = Round(((Finish - Start) / 60), 2)

Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor


klasor = CurrentProject.Path & "\örnek.mdb"

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With

With rst
.ActiveConnection = conn
.Open "tabloadın", LockType:=adLockOptimistic
End With

With rst
.AddNew
.Fields("dakika").Value = TotalTime
.Update
End With
rst.Close

conn.Close

end sub