请版主帮我看看代码哪出错？

Sub YZBB()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ActiveWorkbook.FullName
strsql = "select f2,f5,f6 from [数据明细$] Where f2='" & Range("D4") & "'and f5=" & Range("B5") & ""
rs.Open strsql, cnn, adOpenKeyset, adLockReadOnly
Range("D5:AT65536").ClearContents
Range("D5").CopyFromRecordset rs
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub

[ 本帖最后由 2217918 于 2011-4-11 19:08 编辑 ]

版主，帮帮我。