我的代码如下：
Set objConnection = CreateObject("ADODB.Connection")
objConnection.open strConnectionString

Set objRecordset = CreateObject("ADODB.Recordset")
objRecordset.open strSQL, objConnection
Set objRecordset1 = CreateObject("ADODB.Recordset")
objRecordset1.open strSQL1, objConnection


lngCount = objRecordset.Fields.Count

If (lngCount>0) Then

objRecordset.movefirst-------------1
程序在此出错
Set data2(0)=HMIRuntime.Tags("dcbh")
data2(0).read

m0=CStr(objRecordset.Fields(0).Value)-----------------2
如果去掉1在2出错
data2(0).Value= m0
data2(0).Write

Else

HMIRuntime.Trace "Selection returned no fields" & vbNewLine

End If
objRecordset.movenext

Set data2(1)=HMIRuntime.Tags("clbh")
data2(1).read
m1=CStr(objRecordset.Fields(1))
data2(1).value=m1
data2(1).write


请帮助改正！！