Excel 调用Access

Sub ADO_Access() 'ÒÔAccessΪÊý¾ÝԴʹÓÃADOÓï¾ä
Application.ScreenUpdating = False
Set cnnAccess = CreateObject("Adodb.Connection")
Set rstAnswers = CreateObject("Adodb.Recordset")
Stpath = ThisWorkbook.Path & Application.PathSeparator & "db1.mdb"
cnnAccess.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnAccess.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""
strSQL = "Select * From item where Description='plain N' "
rstAnswers.Open strSQL, cnnAccess, 1, 3
Sheet2.Range("E1").CopyFromRecordset rstAnswers

rstAnswers.Close
Set rstAnswers = Nothing
Set cnnAccess = Nothing
End Sub