(RESOLVED) ADO - Whats wrong? pls have a look

[Bongo]

Greetings,

What is wrong with the following code?

Every time run it I get in the line

an error message (see below)

Option Explicit

' The database connection.
Private m_Conn As ADODB.Connection

Private Const CONNECT_STRING  As String = "Provider=OraOLEDB.Oracle.1;Password=XXXX;Persist Security Info=True;User ID=XXXX;Data Source=XXXX"

Public Function GetStatusSTR(ByVal vName As String, ByVal vPW As String) As Integer
Dim rs As ADODB.Recordset
Dim strSQL As String
    strSQL = "SELECT S.USER_Status FROM ST_USER_STATUS S, ST_USER_ACCESS A WHERE "
    strSQL = strSQL & "A.STATUS = S.USER_STATUS_ID AND A.USERNAME = '" & vName
    strSQL = strSQL & "' AND A.PASSWORD = '" & vPW & "';"
    Set rs = m_Conn.Execute(strSQL)
    If rs.RecordCount > 0 Then
        GetStatusSTR = rs(0)
    Else
        GetStatusSTR = 0
    End If
    rs.Close
    Set rs = Nothing
    Exit Function
End Function

Private Sub Class_Initialize()
    ' Open the database connection.
    Set m_Conn = New ADODB.Connection
    m_Conn.ConnectionString = CONNECT_STRING
    m_Conn.Open
End Sub

Private Sub Class_Terminate()
    m_Conn.Close
    Set m_Conn = Nothing
End Sub

The error message is
RunTime Error "-2147217900 (80040e14)
ORA-00911:

strSQL containes the following value when Set rs = m_Conn.Execute(strSQL) is executing
"SELECT S.USER_Status FROM ST_USER_STATUS S, ST_USER_ACCESS A WHERE A.STATUS = S.USER_STATUS_ID AND A.USERNAME = 'zzz13204' AND A.PASSWORD = 'admin';"

Many thanks in advance