应该是:
set Rs = new recordset 
    Rs.open "SELECT * FROM AddMoney where DataID=" & format(str(index)),conn,4,1