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