三师会诊，请各位高人帮帮忙~

Question

1、
sql="select ZHLX,冷水费,热水费,电费 from A"
2、
alter table A add 燃气费 decimal(10,2)

Answer 1

'引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号
'然后用类似下面的语句'** ----- 数据库连接字符串模板 ---------------------------------------
'** ACCESS数据库
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'**     "Password=""密码"";Data Source=数据库名"
'**
'** SQL数据库
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'**     "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"dim rs as new adodb.recordset
dim conn$
conn=数据库连接字符串
rs.open "select * from A表",conn
set 网格控件.datasource=rs

Answer 2

2.dim db as new adodb.connection
dim conn$
conn=数据库连接字符串
db.open conn
db.execute "alter table A表 add 燃气费 decimal(20,2)"