为什么运行老师显示用户未定义啊！？？

Question

 Private Sub Command1_Click()
 Dim i As Integer
  Dim NewDyn As Recordset
  Dim OpenWs As Workspace
  Dim OpenDB As Database
Set OpenWs = DBengine.Workspaces(0)
Set OpenDB = OpenWs.Opendatabase(App.Path & " \ MyAccessDB.mdb")
 Set NetDyn = OpenDB.Openrecordset("select * from temp", dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
If NewDyn.RecordCount = 0 Then
MsgBox "请在数据库输入数据!", vbCritical
Exit Sub
End If
With MSChart1
.TitleText = "直方图实例"
.RowCount = NewDyn.ReordCount
For i = 1 To NewDyn.RecordCount
.Row = i
.Data = NewDyn.Fields（"数据")
.Rowlabel = NewDyn.Fields（"日期")
NewDyn.MoveNext
Next i
End With
NewDyn.Close
End Sub

Answer 1

你需要在project->references里面添加关于excel的引用

Answer 2

可能就是没有添加对Excel的引用,一种常见错误.