data type mismatch in criteria expression vb 2010 dan access

Question

Para Master.

saya ingin bertanya tentang data type mismatch in criteria expression saat saya menekan tombol SIMPAN untuk menyimpan data dari text box dan listview ke database access. apa ada yang salah dengan kode saya? mohon bantuannya master untuk menyelesaikan kode ini.

berikut kode saya:

 Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click
        Dim counter As Integer
        Dim sql1, sql2 As String
        Call koneksi()
        Try
            sql1 = "insert into Penjualan(tanggal_nota, Nota, Nama, GrandTotal) VALUES ('" & DateTimePicker1.Text & "','" & _
 txtnota.Text & "','" & txtkonsumen.Text & "','" & txtgrandTotal.Text & "')"
            cmd1 = New OleDbCommand(sql1, con)
            Dim x As Integer = cmd1.ExecuteNonQuery
            For counter = 0 To index - 1
                sql2 = "insert into Detail(Nota, Nama_Barang, Harga, Jumlah, Total) VALUES ('" & txtnota.Text & "','" & ListView1.Items(counter).SubItems(0).Text & "','" & _
                    ListView1.Items(counter).SubItems(1).Text & "','" & _
                    ListView1.Items(counter).SubItems(2).Text & "','" & ListView1.Items(counter).SubItems(3).Text & "')"
                cmd2 = New OleDbCommand(sql2, con)
                cmd2.ExecuteNonQuery()
            Next
            If x = 1 Then
                MessageBox.Show("Data Transaksi Berhasil Disimpan")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub