在模块中建立数据库连接，怎么编写他的公共变量呀？

在模块中建立ACCESS数据库连接
怎么编写代码

可我怎么就连接不起呀
数据库连接的值传递不过去呀

Public cn As New Connection
Public rs As New Recordset
Public ConStr As String

Public Sub main()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\数据库\manage.mdb"
登陆界面.Show
End Sub

可为什么
Public cn As New Connection
Public rs As New Recordset
这两句代码根本就不能运行
提示“使用无效关键字”
不用可以运行 但 cn的连接值不能传递到 登陆界面

那我该怎样写代码呀

谢谢