Dim server As String:   server = "s"
    Dim UserId As String:   UserId = "b"
    Dim Passwo As String:   Passwo = "1"
    
    Dim con As adodb.Connection
    Dim rst, rs As adodb.Recordset
    Dim cmd As adodb.Command
    
    Set con = New adodb.Connection
    Set rst = New adodb.Recordset
    Set rs = New adodb.Recordset
    Set cmd = New adodb.Command
     
    con.Open "Provider=SQLOLEDB;Persist Security Info=False;Password=" & Passwo & ";User ID=" & UserId & ";Data Source=" & server
    With cmd
        .ActiveConnection = con
        .CommandText = "USE stat create table #Excel (idn int IDENTITY(1,1),dn char(24) not null, um char(31) null,nam char(32) null,)"
        .CommandType = adCmdText
        .Execute
     End With
         With cmd
        .ActiveConnection = con
        .CommandText = "USE stat Insert into #Excel (prtidn,drwnum, nmpnam)select prtidn,drwnum, nmpnam from Excel_view order by dn"
        .CommandType = adCmdText
        .Execute
     End With

Set rs = con.Execute("exec excel_liz '1'")
    MsgBox (rs.RecordCount)

exec excel_liz ' 1 '

exec excel_liz ' 1 '

Set rs = con.Execute("exec excel_liz '1'")
if rs is not nothing then
  MsgBox (rs.RecordCount)
else
  set rs = rs.nextrecordset
endif