Sub Open_RecordsetADO2(ByVal strSQL As String)

    ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & CONST_str_Db_TempsRet & "; Jet OLEDB:Database;"

    Dim con As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    con.Open ConnectionString

'Set objRS = Server.CreateObject("ADODB.Recordset")

'objRS.CursorLocation = adUseClient

'objRS.Open "SELECT * FROM " & viewName & ";", objConn, adOpenStatic, adLockReadOnly, adCmdText

rsADO.CursorLocation = adUseClient

    rsADO.Open strSQL, con, , adLockPessimistic  ' 3, 3,

End Sub

Sub Open_RecordsetADO(ByVal strSQL As String)

    Set connDbADO = CurrentProject.AccessConnection

'    rsADO.Open strSQL, connDbADO, , adLockBatchOptimistic ' 3, 3, 'rsADO.UpdateBatch

    rsADO.Open strSQL, connDbADO, , adLockPessimistic ' 3, 3,

End Sub