'工程->引用->Microsoft Activex Data Objects 2.0 Library( 后面为版本号)
dim cn as new ADODB.connection
dim rs as new ADODB.recordset
cn.Open "Provider=SQLOLEDB;Data Source=servername;User Id=sa;PassWord=*****;Initial Catalog=testDB"
rs.open "SELECT * FROM aaa",cn
set mshflexgrid1.datasource=rs
rs.close
set rs=nothing
cn.close
set cn=nothing