Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    Dim par As New ADODB.Parameter
    
    cn.Open "Provider=MSDAORA;Data Source=***;User ID=***;Password=***"
    
    cmd.CommandText = "SELECT * FROM Table1 WHERE Id=?"
    cmd.CommandType = adCmdText
    
    Set par = cmd.CreateParameter("Param", adInteger, adParamInput,  1 ,  2 )
    cmd.Parameters.Append par
    ' SELECT * FROM Table1 WHERE Id=2
    
    cmd.ActiveConnection = cn
    Set rs = cmd.Execute
    
    Range("A1").CopyFromRecordset rs