数据库连接：
在窗体中这样连接数据库：
Private Sub Form_Load()

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=124.142.123.166;uid=2008;pwd=2008;database=2008;"
Set rs = New Recordset
rs.Open "select * from clickuser where UserName='" & A1 & "'", db, adOpenStatic, adLockOptimistic
End Sub
请高手指教：如何在写数据库连接模块，同时在窗体中如何写
谢谢

出现实时错误　DB为ｎｏｔｈｉｎｇ

不行 我怎么调试也是空
帮帮我

模块
Public db As Connection



Sub ConnDb()
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=172.132.243.166;uid=2008;pwd=2008;database=2008;"
  Set rs = New Recordset
End Sub
窗体
Private Sub Form_Load()
 Set db = New Connection
 Set rs = New Recordset
  rs.Open "select * from clickuser where UserName = '11111111'", db, adOpenStatic, adLockOptimistic
  If rs.EOF Or rs.BOF Then
  Else
  password = rs("password")
  userid = rs("ID")
End If
End Sub

我改了老错
能简单的改一下吗？
万份感激