Работа с элементом ListView с использованием ADODB - MS Access 2010

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim list As ListItem
Dim X As Long
 
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
    MsgBox "Óêàæèòå ïîëíûå äàííûå!", vbCritical
    Exit Sub
End If
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
     
    SQL = "SELECT * from Sample"
    rs.Open SQL, conn, 3, 3
    rs.AddNew
    rs("Ôàìèëèÿ") = Text1.Text
    rs("Èìÿ") = Text2.Text
    rs("Îò÷åñòâî") = Text3.Text
    rs.Update
    Set rs = Nothing
    conn.Close
    MsgBox "Ñîõðàíåíî óñïåøíî!", vbInformation
    Call LoadData
End Sub
 
Private Sub Command2_Click()
 
If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then
    MsgBox "Óêàæèòå äàííûå èç ñïèñêà äëÿ ðåäàêòèðîâàíèÿ!", vbCritical
    Exit Sub
End If
 
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Selected = True Then
            DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
            DSNName = DSNName & HomeDir & "\Database.accdb"
            conn.Open DSNName
            SQL = "select * from Sample where [Êîä] =" & ListView1.ListItems(i).Text
            rs.Open SQL, conn, 3, 3
            rs("Ôàìèëèÿ") = Text1.Text
            rs("Èìÿ") = Text2.Text
            rs("Îò÷åñòâî") = Text3.Text
            rs.Update
            Set rs = Nothing
            conn.Close
            MsgBox "Ñîõðàíåíî óñïåøíî!", vbInformation
            Call LoadData
        End If
    Next i
End Sub
 
Private Sub Form_Load()
    With ListView1.ColumnHeaders
        .Add , , "Êîä", 1000
        .Add , , "Ôàìèëèÿ", 2000
        .Add , , "Èìÿ", 2000
        .Add , , "Îò÷åñòâî", 2000
    End With
    LoadData
End Sub
 
Sub LoadData()
 
For i = ListView1.ListItems.Count To 1 Step -1
    ListView1.ListItems.Remove i
Next
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\Database.accdb"
    conn.Open DSNName
    SQL = "SELECT * from Sample"
    rs.Open SQL, conn, 3, 3
    Do Until rs.EOF
        Set list = ListView1.ListItems.Add(, , rs(0))
        For X = 1 To 3
            list.SubItems(X) = rs(X)
        Next X
            rs.MoveNext
        Loop
            Set rs = Nothing
            conn.Close
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Selected = True Then
        MsgBox "Âû âûáðàëè: " & ListView1.ListItems(i).SubItems(1) & " " & ListView1.ListItems(i).SubItems(2) & " " & ListView1.ListItems(i).SubItems(3)
        Text1.Text = ListView1.ListItems(i).SubItems(1)
        Text2.Text = ListView1.ListItems(i).SubItems(1)
        Text3.Text = ListView1.ListItems(i).SubItems(1)
    End If
Next i
End Sub