在vb编程中的数据库应用中，每个过程都有以下几句，过程越多，这样的语句重复越多，大家一般都作什么样的处理？

Question

Dim cn As New ADODB.Connection
    Dim adoBtophr1 As New ADODB.Recordset    cnString = ("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Jet OLEDB:Database Password=" & dbPassword)
    Set cn = New Connection
    cn.CursorLocation = adUseClient
    cn.open cnString     ...............
     ..............
     ................    adoBtophr1.Close
    cn.Close

Answer 1

封装
pulic sub openRS(ByRef rs as ADODB.Recordset)
END SUB