Function fun_rsADO_Open(ByVal strSQL As String) As ADODB.Recordset

    Set fun_rsADO_Open = New ADODB.Recordset

    Set fun_rsADO_Open.ActiveConnection = CurrentProject.Connection

'    fun_rsADO_Open.Open strSQL

    fun_rsADO_Open.Open strSQL, CurrentProject.AccessConnection, , adLockPessimistic ' 3, 3,

End Function

Function rs(sql As String) As ADODB.Recordset

    Set rs = New ADODB.Recordset

    Set rs.ActiveConnection = CurrentProject.Connection

    rs.Open sql

End Function