又错了,系统老是这样说... [请大家帮帮忙,我是新手!]
提示"用户定义类型未定义"...
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