Dim rs As adodb.Recordset
  Dim cmd  As adodb.Command
  
  OpenDBConnect "mydb"
'---------------------------------
  Set cmd = New adodb.Command
  cmd.ActiveConnection = cn
  cmd.CommandText = "proc_name"
  cmd.CommandType = adCmdStoredProc

  cmd.Parameters.Refresh ' запрашиваем параметры для вызова процедуры

  cmd.Parameters("@name").value = ... ' задаём параметры для вызова функции
  cmd.Parameters("@pass").value = ...

  Set rs = cmd.Execute ' принимаем результаты запроса процедуры в rs

  Set dealerdynamic_order.Form.Recordset = rs ' пытаемся этот adodb-рекордсет назначить на форму 

  Dim rs As ADODB.Recordset
  
  Set rs = New ADODB.Recordset
  With rs
     Set .ActiveConnection = cn
     .source = "SELECT code,id FROM unit"
     .CursorLocation = adUseClient
     .CursorType = adOpenStatic
     .LockType = adLockReadOnly
     .Open
  End With

  Set Me.filterUnit.Recordset = rs
  filterUnit.Requery