大侠 帮我看看这段代码错在哪里了 谢谢

Question

目的是想在界面的文本框Me.result1,Me.result2,Me.result3里显示saveTEMP.xls中某些字段的值
-------------------------------------------------------------------------------
Private Sub Command1_Click(Index As Integer)
Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.RecordsetDim strA As String
Dim strB As String
Dim strC As StringadooConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=C:\saveTEMP.xls;" & _
              "Extended Properties=""Excel 8.0;"""
           
adoRS.Open "Select * from [Sheet1$]", adoConn, adOpenStatic
adoRS.MoveFirst
adoRS.RecordCount = 1
adoRS("B") = Me.result1
adoRS("D") = Me.result2
adoRS("F") = Me.result3
Set adoRS = Nothing
End Sub
--------------------------------------------------------------------------------

Answer 1

adoRS.RecordCount = 1  不能给值的

Answer 2

估计你的意思是得到你要那一行的直
adoRS.MoveFirst
adoRS.move 10

Answer 3

adoRS.RecordCount = 1  '<---------错误的设置下面这3行，写反了？？
adoRS("B") = Me.result1 
adoRS("D") = Me.result2
adoRS("F") = Me.result3既然是把数据显示到窗体的控件上，应该这样赋值：Me.result1=adoRS("B") & ""
Me.result2=adoRS("D") & ""
Me.result3=adoRS("F") & ""

Answer 4

Private Sub Command1_Click(Index As Integer)
Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.RecordsetDim i As Integer
Dim strA As String
Dim strB As String
Dim strC As StringadoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=C:\saveTEMP.xls;" & _
              "Extended Properties=""Excel 8.0;"""
           
adoRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
adoRS.MoveFirstFor i = 1 To adoRS.RecordCount
adoRS("B") = Me.result1
adoRS("D") = Me.result2
adoRS("F") = Me.result3
adoRS.Update
adoRS.MoveNext
Next i
Set adoRS = Nothing
End Sub

Answer 5

提示:
-----------------------------
compile error:
User-defined type not defined
-----------------------------

Answer 6

是否已经引用ADO？引用ADO("工程"/"引用"/Microsoft ActiveX Data Object 2.X Library)

Answer 7

ADO引用了没有？
在adoRs指向最后一条记录后再adoRS.MoveNext
  那样不就是错了，