VB ADO连接DataGrid

' 工程－引用 Microsoft ActiveX Data Object2.8
Dim  cn  As   New  ADODB.Connection
Dim  rs  As   New  ADODB.Recordset

Private   Sub  Form_Load()
cn.Open  " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:aa.mdb "

rs.CursorLocation  =  adUseClient  ' 本地游标，不加这一句后面的set DataGrid1.DataSource = rs不好用
rs.CursorType  =  adOpenStatic
rs.LockType  =  adLockOptimistic 
rs.Open  " select * from 001 " , cn
Set  DataGrid1.DataSource  =  rs
End Sub