Private Sub CommandButton1_Click()
    On Error GoTo Errs
    Dim dsn As String
    If Msk.Value = True Then dsn = "Msk" Else dsn = "Msk2"
    
    Dim oCon As New ADODB.Connection
    Dim oCom As New ADODB.Command
    Dim orec As New ADODB.Recordset
    Dim obook As Workbook, osheet As Worksheet
    Dim prm1 As ADODB.Parameter
    Dim real_code As ADODB.Parameter
    Dim from_date As ADODB.Parameter
    Dim end_date As ADODB.Parameter
    Dim db As New Data_base
    
    Set obook = ActiveWorkbook
    oCon.ConnectionString = "dsn=" & dsn & "; Uid=pirogov ;Pwd=123456"
    oCon.Open
    
    With oCom
        .ActiveConnection = oCon
        .CommandType = adCmdStoredProc
        .CommandTimeout =  1800 
        .CommandText = "analiz"
        Set prm1 = .CreateParameter("i", adInteger, adParamInput,  10 , CLng(id))
        .Parameters.Append prm1
        Set real_code = .CreateParameter("@real_code", adInteger, adParamInput, ,  10 )
        .Parameters.Append real_code
        Set from_date = .CreateParameter("@from_date", adDate, adParamInput, ,  10 )
        .Parameters.Append from_date
        Set end_date = .CreateParameter("@end_date", adDate, adParamInput, ,  10 )
        .Parameters.Append end_date
        .Execute
    End With
    
    Set osheet = obook.Worksheets.Add
    osheet.Name = "Статистика"
    
    ''' Статистика
    orec.ActiveConnection = oCon
    orec.Open oCom
    'Set orec = orec.NextRecordset
    db.RecToSheet osheet, orec

    Set db = Nothing
    Set oCon = Nothing
    Set oCom = Nothing
    Set orec = Nothing
    
    Set obook = Nothing
    Set osheet = Nothing
    
    Unload UserForm1
    
    Exit Sub
Errs:
    MsgBox Err.Description, vbCritical, "Облом"
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub UserForm_Initialize()
    Msk.Value = True
    real_code.SetFocus
    from_date.SetFocus
    end_date.SetFocus
End Sub