إقتباس :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim strSQL As String

        Dim lvItem As ListViewItem

        cn.Open()

        For Each lvItem In ListView1.Items()

        & _" strSQL = "INSERT INTO awamer_amal SET

                  ,_ & "' " & "debt='" & lvItem.SubItems(0).Text

             "'," & _    &     "kaseem='" & lvItem.SubItems(1).Text

                 & "'"    "cose_c='" & lvItem.SubItems(2).Text

           ( Dim MyCom As New OleDbCommand(strSQL, cn)

            MyCom.CommandText = strSQL

            MyCom.ExecuteNonQuery()

        Next

        cn.Close()

    End Sub