数据库连接菜鸟问题

Question

大家好，我在定义了一个类模块，用于数据库连接的如下：
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-------------
我想另建一个窗体，但不知如何调用这个类，
请大家给出详细代码和最好能讲解一个类是如何调用的，谢谢！

Answer 1

谢谢楼上，不过我在新的窗体发生错误：
实时错误‘91’
对象变量或with 块变量未设置
----------------------------新的窗体如下
Dim cls1 As New Class1Private Sub Form_Load()cls1.rs.Open "select * from userinfor", cls1.cn, 3, 1End Sub==================
请再指导，谢谢！

Answer 2

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