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