每次我连接数据库都要下这样的代码，我能否将这些代码放在模块中反复调用

Question

Dim strsql, strdsn As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
strsql = "select * from yh_table"
strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
conn.Open strdsn
Set rs = New ADODB.Recordset
rs.Open strsql, conn
这些代码该如何放入模块，模块中又该做什么改动，该如何操作？

Answer 1

Project-->Add Module，bas模块里代码如下:
Public conn As New ADODB.Connection 
Public rs   As New ADODB.Recordset Public Sub Opensql()
'//返回对应的记录集
    Dim  strsql As String 
    Dim  strdsn As String 
    strsql = "select   *   from   yh_table" 
    strdsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path& "\db1.mdb;Persist Security Info=False" 
    If Not conn.State Then
        conn.Open strdsn
    End if
    If Not rs.State Then
        rs.Open strsql, conn
    End if
End Sub
调用一次这个函数方法后，rs就可以直接用了。

Answer 2

Public conn As New ADODB.Connection
Public rs   As New ADODB.RecordsetPublic Sub Opensql(Optional strsql As String = "select * from yh_table", Optional strdsn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False")
'//返回对应的记录集
    If Not conn.State Then
        conn.Open strdsn
    End If
    If Not rs.State Then
        rs.Open strsql, conn
    End If
End Sub