能的。Private sub form_load()
   dim cn as new adodb.conection
   dim rs as new adbodb.recordset
   dim sqlstr as string,cnstr as string
   cnstr= "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cn.Open strCnn
   rs.CursorLocation=adUseClient
   rs.CursorType=AdOpenKeyset
   sqlstr="select * from student"   
   rs.open sqlstr,cn
   set datagrid1.datasource=rs
   datagrid1.refresh
End sub