Question

VB 中的Form_Load代码里如何调用子程序

VB 中的Form_Load代码里如何调用子程序。或者说是不是不能调用。 以下是模块中的代码： Public Sub opencn() Set cn = New ADODB.Connection constr = "Driver={SQL Server};server=USER2;uid=sa;pwd=1111;database=db1;Persist Security Info=False" cn.Open constr Set rs = New ADODB.Recordset With rs .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockBatchOptimistic .Source = sql .Open Set .ActiveConnection = Nothing End With End Sub Private Sub Form_Load() sql = "select * from IP " opencn For i = 1 To rs.RecordCount c = 180 b = i * 285 - c a = i + rs.RecordCount Load Label(i) Label(i).Visible = True Label(i).Caption = RTrim(rs("nc")) & " " & RTrim(rs("ip")) Label(i).Move 200, b, 2000, 200 Label(i).BackStyle = 0 Set Label(i).Container = Frame1 rs.MoveNext Next rs.Close End Sub 运行时报实时错误，要求对象 请问应该怎么解决。。因为不想在各个窗体都写一遍连接字串。或者能提供一个通用的连接字串和记录集。。谢谢

Answer 1

cn和rs在NEW前，你定义过了没？ dim cn as ADODB.Connection dim rs as ADODB.Recordset 连接可以全局，数据集最好你是定义局部的。