Function OpenReq(str) As ADODB.Recordset
    Set OpenReq = New ADODB.Recordset
    CurrentProject.Connection.CommandTimeout = 0 
    OpenReq.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
End Function