dim conn as new adodb.connection dim rs as new adodb.recordsetwith conn if .State = adStateOpen Then .Close .ConnectionString = "driver=SQL Server;server=" & 计算机名或IP地址 & ";uid=sa;pwd=;database=" & 数据库名 .CommandTimeout = 3000 .Open end withif rs.state=adstateopen then rs.close rs.open "select * from tablename",conn,adopenkeyset,adlockreadonly set mshflexgrid1.datasource=rs rs.close conn.close set rs=nothing set conn=nothing
dim rs as new adodb.recordsetwith conn
if .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=" & 计算机名或IP地址 & ";uid=sa;pwd=;database=" & 数据库名
.CommandTimeout = 3000
.Open
end withif rs.state=adstateopen then rs.close
rs.open "select * from tablename",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close
conn.close
set rs=nothing
set conn=nothing