Private Sub Form_Load()
Set i = New ADODB.Connection
Set j = New ADODB.Recordset
i.ConnectionString = "provider=sqloledb.1;user id=sa;pwd=247162545;initial catalog=sdb;data source=(local)"
i.Open
j.Open "s", i, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = j
End Sub
这个函数可以用在模块里写吗
怎么写,谢谢~~~~

Public Sub ConnectDb()
Set i = New ADODB.Connection
Set j = New ADODB.Recordset
i.ConnectionString = "provider=sqloledb.1;user id=sa;pwd=247162545;initial catalog=sdb;data source=(local)"
i.Open
j.Open "s", i, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.DataSource = j
End Sub

要用到这段代码时直接调用 ConnectDb 即可。
PS: 如果这段代码只用一两次，就不必声明了。