ACCESSのDB更新に伴ってDBリストの表示を更新するには？ (ID:114894)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして、AARといいます。 初めての投稿なので無礼があったらすみません。 現在、VB6(SP6)professional でACCESSを使ったデータベースを作成しているのですが、ADOをつかってMDBを更新すると、form上に配置してあるDBリストの表示も更新するようにしたいのですがうまくいきません。ソースの方は以下のようになっています。 '参照設定；[Microsoft ActiveX Data Objects 2.1 Library] Private Sub Command1_Click() Dim cnADO As New ADODB.Connection Dim rsADO As New ADODB.Recordset Dim dmy As Variant cnADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=[データベース名];" rsADO.Open "[テーブル名]", cnADO, adOpenKeyset, adLockOptimistic With rsADO .AddNew .Fields("[colum名]").Value = DBList.VisibleCount + 1 .Update End With End If Data1.Refresh DBlist.Refill End Sub データベースの更新のほうはうまくいっております。表示だけうまくいきません。 どなたか詳しい方ご教授願います。よろしくお願いいたします。