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

[michaeljj]

现有A表，各字段分别是：
ZHLX，SJ，冷水费，热水费，电费
现有三条记录：
1.在职干部，2003-11-02,2.29,5.00,0.45
2.地方人员，2003-11-02，2.90，5.00，0.50
3.不合理住户，2003-11-02，3.50，7.00，1.00
我要在VB里做一个表格，显示为：
ZHLX SJ 冷水费 热水费 电费
在职干部 2003-11-02 2.29 5.00 0.45
地方人员 2003-11-02 2.90 5.00 0.50
不合理住户2003-11-02 3.50 7.00 1.00
问题：
1.要得出这样的表格应该怎么写语句？
2.如果往A表里要添加“燃气费”这个字段，怎么写SQL语句，怎么才能使新添加的字段在表格里动态显示出来？

[gmlxf]

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

[zjcxc]

'引用: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

[zjcxc]

2.

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