VB连接ACCESS

 Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
    connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/xxx.mdb"
    cnn.ConnectionString = connstring
    cnn.Open

Set rst = New ADODB.Recordset
SQL = "select * from xx "
rst.Open SQL, cnn, 1, 3