Public CsRs As ADODB.Recordset
    Public CsCn As ADODB.Connection
 
    Set CsCn = New ADODB.Connection
          CsCn.CursorLocation = adUseClient
          CsCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source=" & App.Path & "\data\AnGe_Pc.mdb;" & _
                      "Persist Security Info=False;"
 
    Set CsRs = New ADODB.Recordset
          CsRs.Open "SELECT * FROM User", _
            CsCn, adOpenStatic, adLockOptimistic
 
    Set CsRs = New ADODB.Recordset
          CsRs.Open "SELECT * FROM User", _
            CsCn, adOpenStatic, adLockOptimistic