进出口银行社招经验:VB 请高手查查错。。。

请高手查查错。。。
交流QQ 22441980

Private Sub Fan_Chk()
AccPath = GetFromINI("System", "ACCpath", P_IniPath)

Set Coon = CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccPath & ";"
Coon.Open ConnStr

Set rs = CreateObject("ADODB.recordset")
Sql = "select * from MusicList where Wma = '" & LastDown & "'" '向数据库查询Url失效的歌曲信息
rs.Open Sql, Coon, adOpenStatic, adLockReadOnly
If rs.EOF And rs.BOF Then
MsgBox "Error!在数据库找不到该Url地址!"
Exit Sub
End If
F_SpecialID = rs("SpecialID")
F_SclassID = rs("SClassID")
F_NclassName = rs("Singer")
rs.Close

Set rs = CreateObject("ADODB.recordset")
Sql = "SELECT * FROM special where specialID = '" & F_SpecialID & "'"
rs.Open Sql, Coon, 1, 3
If rs.EOF And rs.BOF Then
MsgBox "Error!在数据库找不到该Url地址!"
Exit Sub
End If
F_SpecialName = rs("name")
F_SclassName = rs("SClass")
MsgBox F_SpecialName & F_SclassName
rs.Close

End Sub
运行起来，错误：
标准表达式中的数据类型不匹配。
停在 rs.Open Sql, Coon, 1, 3 一行