VB6连接access2010后，提示from子句语法错误

请高手赐教，问题出在哪里？我用VB6.0连接ACCESS2010数据库，连接函数如下：Public Function AccConn(Cnn As ADODB.Connection) As Boolean ✀连接数据库On Error GoTo ErrDim strSQL As StringAccConn = FalsestrSQL = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "尀DataBase.accdb" With Cnn .Mode = adModeReadWrite ✀ 连接模式 ??? .ConnectionTimeout = 10 ✀超时 .CommandTimeout = 5 .CursorLocation = adUseClient .Open strSQL ✀打开数据库连接End With AccConn = TrueExit FunctionErr: MsgBox Err.Description, vbOKOnly + vbCritical, "数据库连接错误"End Function然后在连接具体表时，出现这个错误Dim strSQL As StringDim rs As New ADODB.RecordsetDim HTWEA As New ADODB.Connection If AccConn(HTWEA) = False Then MsgBox "数据库连接失败", vbOKOnly + vbCritical, "错误提示": Exit SubstrSQL = "SELECT * FROM USER WHERE NAME=✀MICHAEL✀"rs.Open strSQL, HTWEA, 1, 1PS.上面的SQL代码在ACCESS里查询没问题。请不吝赐教！谢谢！