Set db = OpenDatabase(App.Path & "\数据.MDB", False, False)
    SQL = "SELECT 名称"
    For i = 1 To from1.Listbox2.ListCount
        SQL = SQL & "," & from1.Listbox2.list(i - 1)
    Next
    SQL = SQL & " FROM 数据"
    Set rs1 = db.OpenRecordset(SQL, dbOpenDynaset)
    j = 1
    rs1.MoveFirst
    Do Until rs1.EOF
        For i = 1 To form1.Listbox1.ListCount
            If rs1.Fields(0) = form1.Listbox1.list(i - 1) Then
                j = i
                Exit For
            End If
        Next i
请问这段代码的主要意思是

谢谢

这个网址打不开呀？