いつも拝見させていただいています。
あることが解決せず大変弱わっております！どうかお助けください。
VB6.0+JET4.0です。(ADO)
連結フォーム（FORM2)にDBの情報を表示させています。
表示させる内容をある条件で絞り込みたいと思い立ち、
FORM1を作成し、そこに条件を選択できるConboboxを用意して、
その選択値によって、FORM2の連結先ＤＢが抽出されるようにしたいと
考えています。
ところが。。。試行錯誤してるうちに夜が明けてしまいました。
パラメータの受け渡しはできているはずなのですが、連結フォームに
何も表示されなくなってしまいました。
●FORM1（抽出条件選択フォーム）のコード
Private Sub Command1_Click()
Dim mysqlr As String
Dim rsd As New ADODB.Recordset
Dim Prm As ADODB.Parameter
'コンボボックスの選択値を変数にSET
DataCombo1.text = GT '←GTは標準モジュールでPUBLICで宣言済（STRING型）
'パラメータクエリを作成
mysqlr = "SELECT * From TBLA WHERE U_NO = ? ORDER BY FLG1, FLG2"
'Commandオブジェクトを作成
Set cmdMaster = New ADODB.Command
cmdMaster.ActiveConnection = cn
cmdMaster.CommandText = mysqlr
'Parameterオブジェクトを作成
Set Prm = New ADODB.Parameter
Set Prm = cmdMaster.CreateParameter("Prm", adVariant, adParamInput, 20)
cmdMaster.Parameters.Append Prm
'Parameterを設定
cmdMaster.Parameters("Prm").Value = "+ GT +" '←パラメーターにコンボボックスの選択値をＳＥＴ
'パラメータクエリを実行
Set rsd = New ADODB.Recordset
Set rsd = cmdMaster.Execute
Unload Me
Load Form1
Form1.Show
End Sub
※連結フォーム(FORM2)にある複数のコントロールのデータメンバーはいずれもcmdMaster（データソースはdemain)
特にエラー表示が出るわけではなく、連結フォームに情報が反映されないというものです。
どなたか、どうかお助けください。
すいません。多数ミスっておりました。
出直します。