Save Data in MSAccess Using Listview in Vb 6.0

Hello Guys,,

I need Your Help I want to save my data in listview to my DB and This is My code to save data in listview

Private Sub save()
ListView1.ListItems.Add , , lblrp.Caption
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , txtCode.Text
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , txtproductname.Text
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , txtqty.Text
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , txtprice.Text
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , lbltotal.Caption
ListView1.ListItems.Item(ListView1.ListItems.Count).ListSubItems.Add , , lbldate.Caption
End Sub

and this my code to Save Data in MSAccess Using Listview

Private Sub savetodailyrecord()
On Error Resume Next
Dim str As String

str = "INSERT INTO Dailyrecord Values('" & ListView1.SelectedItem.Text & "', '" & ListView1.SelectedItem.SubItems(1) & "', '" & ListView1.SelectedItem.SubItems(2) & "', '" & ListView1.SelectedItem.SubItems(3) & "', '" & ListView1.SelectedItem.SubItems(4) & "', '" & ListView1.SelectedItem.SubItems(5) & "', '" & ListView1.SelectedItem.SubItems(6) & "')"
acd.Execute str
Call Purchase
ListView1.ListItems.clear

End Sub

there's no data save in my DB when i Save ..

Help Me Guys..
thanks in Adavance