Set rs = cn.Execute("insert into data (tcp_data) values ('" & a & "')")

Set rs = cn.Execute("insert into data (tcp_data) values ('" & a & "')")

INSERT INTO 语句用于向表data中插入新的行,使列tcp_data的值为参数a的值