", ">") 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