Помогите, пожалуйста, с CreateParameter - VB

CommandButton1_Click()
       Errs
     dsn  
     Msk.Value = True  dsn =   dsn = 
    
     oCon   ADODB.Connection
     oCom   ADODB.Command
     orec   ADODB.Recordset
     obook  Workbook, osheet  Worksheet
     prm1  ADODB.Parameter
     real_code  ADODB.Parameter
     from_date  ADODB.Parameter
     end_date  ADODB.Parameter
     db   Data_base
    
     obook = ActiveWorkbook
    oCon.ConnectionString =  & dsn & 
    oCon.
    
     oCom
        .ActiveConnection = oCon
        .CommandType = adCmdStoredProc
        .CommandTimeout = 
        .CommandText = 
         prm1 = .CreateParameter(, adInteger, adParamInput, , CLng(id))
        .Parameters.Append prm1
         real_code = .CreateParameter(, adInteger, adParamInput, , )
        .Parameters.Append real_code
         from_date = .CreateParameter(, adDate, adParamInput, , )
        .Parameters.Append from_date
         end_date = .CreateParameter(, adDate, adParamInput, , )
        .Parameters.Append end_date
        .Execute

     osheet = obook.Worksheets.Add
    osheet. = 

    orec.ActiveConnection = oCon
    orec. oCom
    
    db.RecToSheet osheet, orec

     db = 
     oCon = 
     oCom = 
     orec = 
    
     obook = 
     osheet = 
    
    Unload UserForm1

Errs:
    MsgBox Err.Description, vbCritical, 

  CommandButton2_Click()
    Unload UserForm1

  Frame1_Click()

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