[Resolvido] Mysql + ASP, não encontra tabela

estou precisando de ajuda, vou colocar as 88 linhas da conexão... o erro que encontro é

o code não é meu só estou adaptando para Mysql, o original é em ACCESS

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[MySQL][ODBC 3.51 Driver][mysqld-5.1.30]Table 'bookeepers.USUARIO' doesn't exist

/restrito2/clDados.asp, line 48

<%
Server.ScriptTimeOut = 5000

'==========================================
Class clStoredProcedure

Public xoConexao

'==========================================
Private Sub Class_Initialize()
Set xoConexao = Server.CreateObject("ADODB.Connection")
End Sub

'==========================================
Private Sub Class_Terminate()
If xoConexao.State = 1 Then xoConexao.Close
Set xoConexao = Nothing
End Sub

'==========================================
public Sub Conecta()

If xoConexao.State = 0 Then
xoConexao.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};SERVER=xxx.xxx.xxx;DATABASE=nomedadatabase;UID=usuario;PWD=senha;"
xoConexao.ConnectionTimeout = 60
xoConexao.Open
End If

End Sub

'==========================================
Public Function SPExecutar(ByVal SQL)

Call Conecta()
xoConexao.Execute SQL

End Function

'==========================================
Public Function SPExecutarRetXML(ByVal SQL, ByVal NomeTagDados, ByVal NomeTagRoot)

Dim xrRst

Call Conecta()

Set xrRst = Server.CreateObject("ADODB.Recordset")
xrRst.CursorLocation = 3
xrRst.Open SQL, xoConexao, 3, 3 ''''''''''''''''''''''''''''''''''''''''LINHA DO ERRO
Set xrRst.ActiveConnection = Nothing
SPExecutarRetXML = MontarXML(xrRst, NomeTagDados, NomeTagRoot)
xrRst.Close
Set xrRst = Nothing

End Function

'==========================================
Public Function MontarXML(xoRS, ByVal NomeTag, ByVal NomeRoot)

Dim xoDOM
Dim xsStrXML

Set xoDOM = Server.CreateObject("MSXML.DOMDocument")

If xoRS.EOF or xoRS.bof Then
MontarXML = ""
Exit Function
End If

xoRS.Save xoDOM, 1

xsStrXML = xoDOM.documentElement.childNodes(1).xml

xsStrXML = Replace(xsStrXML, "rs:data ", NomeRoot)
xsStrXML = Replace(xsStrXML, "rs:data", NomeRoot)
xsStrXML = Replace(xsStrXML, "z:row ", NomeTag)
xsStrXML = Replace(xsStrXML, "z:row", NomeTag)
xsStrXML = Replace(xsStrXML, "xmlns:z=" & Chr(34) & "#RowsetSchema" & Chr(34), "")
xsStrXML = Replace(xsStrXML, "xmlns:rs=" & Chr(34) & "urn:schemas-microsoft-com:rowset" & Chr(34), "")

xsStrXML = Replace(xsStrXML, vbCrLf, "")
xsStrXML = Replace(xsStrXML, Chr(13), "")
xsStrXML = Replace(xsStrXML, Chr(9), "")

MontarXML = xsStrXML

End Function
End Class
%>

abaixo as linhas: