既に開いているフォームのデータを更新するには？ (ID:108404)

名前

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

本文 はじめまして、ＶＢ初心者の者です。 どうぞお教えください。 VB6.0で作成したフォームで、MDBのDBを操作しています。 FORM1でDBのデータを表示し、FORM1から展開したFORM2でデータの登録を おこない、その結果をFORM1に更新させたいのですが、この更新部分が うまくいきません。 FORM1は連結フォームとデータグリッドで構成。(データグリッド部を更新したい。) DBとの接続はうまくいっています。 既に開いていてデータを表示しているform1を再更新するにはどうすればいいのでしょうか？ （formの更新ではない？） 'FORM2 Private Sub Command1_Click() Dim rs As New ADODB.Recordset rs.Open "kotbl", cn, adOpenForwardOnly, adLockPessimistic '新規レコードをDBに登録 rs.AddNew rs![カード番号] = Form1.txtカード番号.Text rs![交渉日時] = Now rs![発信先] = DataCombo2.Text rs![AITE] = DataCombo1.Text rs.Update 'FORM1のデータグリッド部更新処理 Call FORM1.refreshdata FORM1.Refresh Set rs = Nothing End Sub 'データグリッド更新処理(form1上のコード） Public Sub refreshdata() Dim rs As New ADODB.Recordset Dim mysql As String 'SQLステートメント mysql = " SELECT kotbl.カード番号, kotbl.交渉日時,kotbl.発信先 ,kotbl.AITE,From kotbl where kotbl.カード番号 = '" & txtカード番号.Text & "'" rs.Open mysql, deMain.cnSalse, adOpenStatic, adLockOptimistic Set dbgsub.DataSource = rs dbgsub.Columns("カード番号").Visible = False dbgsub.Columns("交渉日時").Width = 60 * 15 dbgsub.Columns("発信先").Width = 60 * 15 dbgsub.Columns("AITE").Width = 60 * 15 END SUB