Set oCon = CreateObject("ADODB.Connection")
Set oRS = CreateObject("ADODB.RecordSet")
Set oCMD = CreateObject("ADODB.Command")
oCon.ConnectionString = "User ID=test;Password=test;Data Source=test"
oCon.Open
oCMD.ActiveConnection = oCon
oCMD.CommandText = "Execute Procedure Test(?,?,?);"
oCMD.Parameters.Refresh
oCMD.Parameters("Param1") = Cells(1, 3)
oCMD.Parameters("Param2") = Cells(2, 3)
oCMD.Parameters("Param3") = Cells(3, 3)
Set oRS = oCMD.Execute()
i = 6
While Not oRS.EOF()
...