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

Question

'已经连接好数据表Dim x As Integerx = "字段1"rs.Move 0Text1.Text = rs.Fields("x")  '这里错误有没有方法可以使以上代码变正确啊？？？

Answer 1

这个属于什么代码？
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")