又错了,系统老是这样说... [请大家帮帮忙,我是新手!]

[muddyboy]

提示"用户定义类型未定义"...

Private Sub Command1_Click()
Dim Db As Database ////这一行到底有什么错误??
Dim rs As Recordset
'Dim Spath As String
'Dim I As Integer
'Dim Condition As String
'联接数据库
'Condition = Trim(Text19.Text)
Spath = App.Path + "\" + "vote.mdb"
Set Db = OpenDatabase(Spath, False, True)
Set rs = Db.OpenRecordset("admin", dbOpenDynaset)
End sub

[pcwak]

工程--》引用

[muddyboy]

能说得详细点吗?

谢谢pcwak(书剑狂生)

[smallsnig]

project->reference

[sxs69]

工程--引用--microsoft dao 3.6 object library