用VB连数据库的问题,请高手指点

我在VB里建了一个公共模块,用来连接数据库
代码见下:
Public db As Database
Public rs As Recordset
Sub main()
Set db = db.opendatabase(App.Path + user.mdb)
Form.Show
End Sub


然后在FORM1里代码如下:

Private Sub Command1_Click()
Set rs = openrecordset("select user from user")
End Sub

Private Sub Text1_Change()
Text1.Text = rs.file(0)
End Sub

运行时出现"用户定义类型未定义".错误,为什么??  Public db As Database 这一行变黄色了,