Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim cmd As ADODB.Command
    
    Set cn = New ADODB.Connection
    
    With cn
       .ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=servername;Initial Catalog=Accruals;UID=user;Password=123"
       .CursorLocation = adUseClient
       .Open
    End With
    
    Set cmd = New ADODB.Command
    Set rs = New ADODB.Recordset
    
    If Me![MyOrMappingRecords] = 1 Then
        sqlquery = "SELECT 1"
    Else
        sqlquery = "SELECT 2"
    End If

    With cmd
        .ActiveConnection = cn
        .CommandText = sqlquery
    End With
    
    rs.Open cmd, , adOpenStatic, adLockOptimistic
    
    DoCmd.OpenForm "dbo_Accruals", acNormal, , , acFormEdit, acHidden
    Set Forms!dbo_Accruals.Recordset = rs   
    DoCmd.OpenForm "dbo_Accruals", acFormDS, , , acFormEdit, acWindowNormal