数据库连接：
在窗体中这样连接数据库：
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
请高手指教：如何在写数据库连接模块，同时在窗体中如何写
谢谢

就是在某个模块里将连接的代码放入一个Sub中，但是db要在模块顶部用Public定义：

Public db As Connection

Sub ConnDb()

 Set db=.....
....
End Sub

然后在窗口中直接用db引用即可，或者也可以用modName.db来引用

[[it] 本帖最后由 multiple1902 于 2008-5-24 21:53 编辑 [/it]]

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

Public db As New Connection

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

定义时不一定要New，但是你使用数据库前好歹要连接一下数据库吧？
连接数据库时要New一下吧？New完了就不是Nothing了吧？

模块
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

改成 Adodb.connection?

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