dim song
song=split(songstr,"+")
dim songstr
for i=0 to ubound(song)
if i < ubound(song)
songstr=songstr + "'"+ song(i) + "',"
else
songstr=songstr+ "'" + song(i) + "'"
dim sqlstr
sqlstr="select * from songdb where songname in (" & songstr & ")"
rs.open sqlstr,myconn,1,1
注:split中不一定要用"+",这有你生成的歌名字符串决定。
conn 为你建立的连接。