数据表的字段名赋值问题？？

[ivy13579]

'已经连接好数据表

Dim x As Integer

x = "字段1"

rs.Move 0

Text1.Text = rs.Fields("x") '这里错误

有没有方法可以使以上代码变正确啊？？？

[lxq19851204]

[Quote=引用楼主 ivy13579 的回复:]
'已经连接好数据表

Dim x As Integer

x = "字段1"

rs.Move 0

Text1.Text = rs.Fields("x") '这里错误

有没有方法可以使以上代码变正确啊？？？
[/Quote]
这个属于什么代码？
Dim sCmd as string
Dim oRs as adodb.recordset
set oRs=new adodb.recordset
sCmd ="Select 字段1 From TableA"
ORS.Open sCMD, DCN, adOpenForwardOnly, adLockReadOnly, adCmdText
Text1.Text=rs.Fields("字段1")