メソッドまたはデータメンバーがvb6に見つかりませんか？

Question

これは私のコード

Sub filllistview() 
    Dim itmX As ListItem 

    Main 

    rs.Open " select * from hatw order by id desc ", dbconn, 3, 2 

    If Not rs.EOF Then 
    ListView1.ListItems.Clear 
    rs.MoveFirst 

    Do While Not rs.EOF 
     Set itmX = ListView1.ListItems.Add(1, , rs!id) 
     itmX.ListSubItems.Add , , rs!no_of_text 
     itmX.ListSubItems.Add , , rs!date_of_text 
     itmX.ListSubItems.Add , , rs!Title 
     rs.MoveNext 
    Loop 
    Else 
    ListView1.ListItems.Clear 
    End If 

    rs.Close 
    Set rs = Nothing 
End Sub 

私はF5を押すと、このエラーが発生している：

メソッドまたはデータメンバ

が見つかりませんエラーがこの文を強調：

ListView1.ListItems.Clear 

Answer 1

あなたのプロジェクトへの参照を追加する必要があるのは正しいと思われます。 documentationによれば、MSCOMCTL.OCXへの参照を追加する必要があります。 ExcelのVBAエディタのリファレンスダイアログで、私はそれを少し調べなければなりませんでしたが（それはあらかじめ定義されたリファレンスではありませんでしたが）、私のマシンのC:\Windows\SysWOW64\MSCOMCTL.OCXで見つかりました。コントロールを見つけたら参照リストにMicrosoft Windows Common Controls 6.0 (SP6)と表示されました。おそらく、すでにAccessにあるものとして自動的にリストされます。私が参照線を追加するとすぐに

Dim LV as ListView 

がきちんとコンパイルされます。