我在把记录集中的数据显示到文本框里时
text1.text=rs("商品名称")
text2.text=rs("商品价格")
...........
.....
就是显示不出来，怎么回事啊！！有好的方法的给一段代码啊！！

'先添加引用ado
Dim dbConn As ADODB.Connection
Dim Rst As ADODB.Recordset

Dim conString As String
conString = "Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=Northwind;User Id =sa;Password=coffee"

Set dbConn = New ADODB.Connection
dbConn.Open conString

Set Rst = New ADODB.Recordset

Rst.CursorLocation = adUseClient
Rst.Open "select * from orders", dbConn, adOpenKeyset, adLockPessimistic, adCmdText

Text1.Text = Rst.Fields("OrderID").Value
Text2.Text = Rst.Fields("ShipCity").Value

Rst.Close
dbConn.Close
Set Rst = Nothing
Set dbConn = Nothing