dim cn as new adodb.connection
dim rs as new adodb.recordsetcn.open".....连数据库"
set rs=cn.execute("select * from 表")
set rs=datagrid.datasource
datagrid.refresh
dim rs as new adodb.recordsetcn.open".....连数据库"
set rs=cn.execute("select * from 表")
set rs=datagrid.datasource
datagrid.refresh
set datagrid.datasource=rs