关于adodb的使用问题！！！（救急绝对给分！！！！！）

给你最重要的一部分，呵呵Public WithEvents rs   As ADODB.Recordset
Dim conn As ADODB.Connection
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\northwind.mdb;"
rs.Open "select *from 产品", conn, adOpenStatic, adLockOptimistic
Set MShflexgrid1.DataSource = rs