", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
", ">") 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("TABLE_TYPE")="TABLE" t
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 personality