ADOでMSFlexGridに値を表示 (ID:108240)

名前

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

本文

間違って送ってしまいました＞＜；申し訳ありません！！

続きです(汗）

「実行時エラー'91'
  オブジェクト変数またはwithブロック変数が設定されていません。」

以下のコードで行っているのですが、コンボボックスcboListには
値が取得できるため、接続は出来ているようです。
おそらく、FlexGridへの値の取得の仕方が間違っていると思うのですが
何が悪いのかご指南よろしくお願いいたします。

Option Explicit
'*********オブジェクト変数名*********
'コネクションクラス：   変数名  Cn
'レコードセットクラス： 変数名  Rs
'************************************
Private Cn As ADODB.Connection
Private Rs As ADODB.Recordset
Private Sub Form_Load()
    Set Cn = New ADODB.Connection
    Cn.ConnectionString = "Provider=MSDAORA.1;User ID=scott;Data Source=hwwk;Persist Security Info=False"
    Cn.Open , , "password"
    Set Rs = New ADODB.Recordset
    Set Rs.ActiveConnection = Cn
    
    Rs.Open "emp", Cn, , adLockOptimistic
    Do Until Rs.EOF
        cboList.AddItem Rs("empno") & " " & Rs("ename")
        Rs.MoveNext
    Loop
    Set msgList.DataSource = Rs 'ここでエラー
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Rs.Close
    Set Rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub

msgListがMSFlexGridで、環境はVB6.0  Oracle8.1.7です。
皆様よろしくお願いいたします<(__)>

←解決時は質問者本人がここをチェックしてください。

戻る