数据库连接菜鸟问题

[li_net]

大家好，我在定义了一个类模块，用于数据库连接的如下：
Option Explicit
Public cn As ADODB.Connection
Public rs As Recordset
Public Sub DbLoad()
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "driver={sql server};server=192.168.1.254;uid=sa;pwd=admin.com;database=vbst"
End Sub
Private Sub Main()
If App.PrevInstance = True Then MsgBox "程序已经在运行！", 64: Exit Sub
Call DbLoad
Form1.Show
End Sub

-------------
我想另建一个窗体，但不知如何调用这个类，
请大家给出详细代码和最好能讲解一个类是如何调用的，谢谢！

[li_net]

谢谢楼上，不过我在新的窗体发生错误：
实时错误‘91’
对象变量或with 块变量未设置
----------------------------新的窗体如下
Dim cls1 As New Class1

Private Sub Form_Load()

cls1.rs.Open "select * from userinfor", cls1.cn, 3, 1

End Sub

==================
请再指导，谢谢！

[lsxad]

谢谢楼上，不过我在新的窗体发生错误：
实时错误‘91’
对象变量或with 块变量未设置
re:
加上 set rs =new adodb.Recordset
另 Public rs As Recordset 应该为 Public rs As adodb.Recordset

[li_net]

还是不行，没有其它办法了？