PublicMy_CnnAsNewADODB.Connection'连接数据库
StrCnn="Provider=SQLOLEDB.1;Password=密码;PersistSecurityInfo=True;UserID=用户名;InitialCatalog=数据库名;DataSource=服务器名"
My_Cnn.CursorLocation=adUseClient
My_Cnn.OpenStrCnn
使用数据库
DimsqlAsString
DimMy_tempAsNewADODB.Recordset
执行SQL语句（一般插入，删除数据）
sql="数据库语句"
My_cnn.Executesql
读取数据
sql="查询语句"
My_temp.Opensql,My_cnn,adOpenDynamic,adLockOptimistic
My_temp.field("字段名")
