punch clock in access with listview

hello everyone
i need some help
im trying to make a punch clock to save in access with listview
i did some code to save it into richtextbox.
the problem is that im trying to save it to access but i dont know where to begin.
this is the code that i put.
Dim howmanybuttons As Integer
Dim last As String
Private Sub Command1_Click(Index As Integer)
theindex = Index
If last = theindex Then
startorclose = "Close"
last = "89"
Else
startorclose = "Start"
last = theindex
End If
a = " " & startorclose & "__" & Command1(theindex).Caption & "__" & Time & Date
b = Len(a)
b = 25 - b
If b < 1 Then GoTo 34
For i = 1 To b + 5
a = a & " "
Next i
34
Form2.LOG.Text = Form2.LOG.Text & a
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

Private Sub LOG_Click(Index As Integer)
Open "C:\windows\desktop\log.txt" For Output As #1
Write #1, Form2.LOG.Text
Close #1
End Sub

Private Sub newone_Click()
If howmanybuttons = 10 Then
MsgBox ("To Many Buttons")
End If
howmanybuttons = howmanybuttons + 1
Command1(howmanybuttons).Caption = InputBox("What Do You Want The Caption To Say")
If howmanybuttons = 1 Then
Command1(1).Left = 120
Command1(1).Top = 120
End If
If howmanybuttons = 2 Then
Command1(2).Left = 2040
Command1(2).Top = 120
End If
If howmanybuttons = 3 Then
Command1(3).Left = 3960
Command1(3).Top = 120
End If
If howmanybuttons = 4 Then
Command1(4).Left = 5880
Command1(4).Top = 120
End If
If howmanybuttons = 5 Then
Command1(5).Left = 7800
Command1(5).Top = 120
End If
If howmanybuttons = 6 Then
Command1(6).Left = 120
Command1(6).Top = 720
End If
If howmanybuttons = 7 Then
Command1(7).Left = 2040
Command1(7).Top = 720
End If
If howmanybuttons = 8 Then
Command1(8).Left = 3960
Command1(8).Top = 720
End If
If howmanybuttons = 9 Then
Command1(9).Left = 5880
Command1(9).Top = 720
End If
If howmanybuttons = 10 Then
Command1(10).Left = 7800
Command1(10).Top = 720
End If
End Sub

Private Sub quitpulldown_Click()
End
End Sub

Private Sub Timer1_Timer()

End Sub
any suggestions i appreciate it