Public Function refreshmulti()


Multi.ListView1.ListItems.Clear

Dim conn723 As Object
Set conn723 = CreateObject("ADODB.Connection")
Dim rst723 As Object
Set rst723 = CreateObject("ADODB.Recordset")
conn723.Provider = "Microsoft.Jet.OLEDB.4.0"
conn723.Properties("Data Source").Value = Login.path1
conn723.Open
rst723.Open "Select * from Multi", conn723, adOpenDynamic, adLockOptimistic
kk = kk + 1
While Not rst723.EOF
    If Not rst723.Fields("Код") = 0 Then
        Multi.ListView1.ListItems.Add , "Strka" & kk, Names2(rst723.Fields("Код")), 0, 0
        Multi.ListView1.ListItems("Strka" & kk).SubItems(1) = Names(rst723.Fields("Код"))
        'Multi.ListView1.ListItems("Strka" & kk).SubItems(2) = rst723.Fields("Код")
        'Multi.ListView1.ListItems("Strka" & kk).SubItems(3) = Module.Names4(rst723.Fields("Код"))
        'Multi.ListView1.ListItems("Strka" & kk).SubItems(4) = Module.Names3(rst723.Fields("Код"))
        'Multi.ListView1.ListItems("Strka" & kk).SubItems(5) = rst723.Fields("Код")
        kk = kk + 1
    End If
    rst723.MoveNext
Wend
conn723.Close
Set conn723 = Nothing

End Function