", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
", ">") S = replace(S, "40 Then Set Conn=CreateObject(ObT(5,0)) Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"表
名" Rs.MoveFirst Do While Not Rs.Eof If Rs("TAB
a special meala happy persona card or letter you receiveda story you heard in childhooda teacher who taught youan exciting experiencea family event you took part in your personalit