主题：奉献金字塔连接MySQL的方法：

以下内容为程序代码:

1 sub conmysql()
2 strC
3     Set conn = CreateObject("adodb.connection")
4     conn.Open strConn
5     strSql="INSERT INTO sign(stkname,period,sign) values ('铁矿石','M30','空头')"
6     conn.execute strSql,intRowsAffect
7     conn.Close
8     Set conn = Nothing
9 end sub