vb.net Fieldsについて (ID:91650)

名前

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

本文 はじめまして、pinkと申します。 OS:Windows2000 VB:.net VBを使いはじめて一ヶ月なのですが、DBの値の取得で躓いています。 以下のソースで Dim cn As Object Dim rs As Object Dim sql As String sql = "SELECT aaa, bbb, ccc FROM XXX" '** ODBC 接続 cn = CreateObject("ADODB.Connection") cn.Open("dsn=hoge;uid=sa;pwd=") cn.CursorLocation = 3 '** レコードセットオープン rs = cn.Execute(sql) While Not rs.EOF ListBox1.Items.Add(rs.Fields("aaa").Value & " " & rs.Fields("bbb").Value & _ '" " & rs.Fields("ccc").Value) rs.MoveNext() End While '** レコードセットクローズ rs.Close() '** ODBC 接続解除 cn.Close() Items.Addでエラーになります。 ちなみに、 rs("ccc").Valueもrs.Fields.Item("ccc").Value もダメでした。 正しく値を取得するにはどうすればできるのでしょうか？ よろしくお願いします。