Question

VB窗体中调用模块的问题

我的窗体form1中有 Private Sub Command1_Click() Dim rs Dim sql Set rs = CreateObject("ADODB.Recordset") sql = "select * from test" rs.open sql, Conn, 3, 3 c1.Caption = rs("txt1") c2.Caption = rs("txt2") rs.Close Set rs = Nothing End Sub 只是一个记录集读取的程序 --------------- 模块OpDb.bas中有 Sub Opendb() '打开数据库 Dim Conn Dim dbstr Set Conn = CreateObject("ADODB.Connection") dbstr = App.Path & "\cc.mdb" Conn.open "driver={microsoft access driver (*.mdb)};dbq=" & App.Path & "\cc.mdb" End Sub Sub Closedb() '关闭数据库 Conn.Close Set Conn = Nothing End Sub ------------------------- 我把数据库的连接放在模块里，方便其它窗体也调用。 现在我如何在FORM1中调用模块OpDb.bas的数据库连接程序呢??????????

Answer 1

标准模块可以用模块名.Opendb
来调用啊!你是不是用的其他模块??
如果是标准模块就是你模块里面的问题了!