vb 中语句如下:dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bo;Data Source=compaq"
strsql="select * from product_style "
rs.CursorLocation=adUseClient
rs.open strsql,cn, adOpenForwardOnly, adLockReadOnly,adAsyncFetch
set datagrid.datasourse=rs
rs.close
cn.close
dim rs as new adodb.recordset
cn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bo;Data Source=compaq"
strsql="select * from product_style "
rs.CursorLocation=adUseClient
rs.open strsql,cn, adOpenForwardOnly, adLockReadOnly,adAsyncFetch
set datagrid.datasourse=rs
rs.close
cn.close
不过在这之前要先引用一下,msdao15.dll