就是在通用声明那里，为什么我写dim a as database时不是应该会有database出来的吗，可是没有出来，然后运行就会显示这里定义错误，为什么啊，请大家帮忙提示下，谢了！

刚看了下，没有你说的那个部件啊，好奇怪啊，我在别的程序里就能写，郁闷
Dim a As Database
Dim b As Recordset

Private Sub Command1_Click()
Set b = a.OpenRecordset("select * from 管理员 where User ='" & Text1 & "'")
If Not b.EOF Then
If Text3 = b.Fields(1) Then
管理界面.Show
End If
Else
MsgBox ("密码错误！")
End If
Else
MsgBox ("用户名输入有误！")
End Sub

Private Sub Form_Load()
Set a = OpenDatabase("F:\数据库作业\db1.mdb")
这些是我写的，麻烦高手看下问题出在哪里，谢谢了！

[此贴子已经被作者于2007-7-21 21:41:53编辑过]

database 不是一个有效的数据类型

添加个部件Microsoft   DAO   3.X 就可以了

刚看了下，没有你说的那个部件啊，好奇怪啊，我在别的程序里就能写，郁闷
Dim a As Database
Dim b As Recordset

Private Sub Command1_Click()
Set b = a.OpenRecordset("select * from 管理员 where User ='" & Text1 & "'")
If Not b.EOF Then
If Text3 = b.Fields(1) Then
管理界面.Show
End If
Else
MsgBox ("密码错误！")
End If
Else
MsgBox ("用户名输入有误！")
End Sub

Private Sub Form_Load()
Set a = OpenDatabase("F:\数据库作业\db1.mdb")
这些是我写的，麻烦高手看下问题出在哪里，谢谢了！

sorry你打开
工程-引用，在里面，可以找到Microsoft DAO 3.X

已经解决了，谢谢，但是现在又出现个问题是提示实时错误13
我写的代码是Private Sub Command1_Click()

Set b = a.OpenRecordset("select * from 管理员 where user ='" & Text1 & "'")
If Not b.EOF() Then
If Text3 = b.Fields(1) Then
管理界面.Show
Else: MsgBox ("密码错误!")
End If
Else: MsgBox ("用户名出错")
End If
End Sub
提示出错的地方是Set b = a.OpenRecordset("select * from 管理员 where user ='" & Text1 & "'")
帮忙提示下，谢谢！

把程序上传上来大家看一下吧

Dim a As Database
Dim b As Recordset

Private Sub Command1_Click()
Set b = a.OpenRecordset("select * from 管理员 where User='" & Text1.Text & "'")
If Not b.EOF Then
If Text2.Text = b.Fields(1) Then
管理界面.Show
Else
MsgBox ("密码错误！")
End If
Else
MsgBox ("用户名输入有误！")
End If
End Sub

Private Sub Form_Load()
Set a = OpenDatabase("F:\db1.mdb")
End Sub

谢谢了，昨天晚上后来重做一遍，一样的程序代码，就能运行。
现在出现了个新的问题老是提示实时错误424
错误的代码是Set c = a.OpenRecordset("select * from 电影信息 where 影片编号 ='" & Text1 & "'")
请问错误该怎么改啊？