Problem with RDO

I have a problem with RDO and SQL Server.  When I execute this:
---
strCommande = "exec AddPatientName " & Chr(34) & "Roger" & Chr(34) & "," & Chr(34) & "Vaillant" & Chr(34) & "," & Chr(34) & "1236 Boulevard St-Joseph De Lapocante" & Chr(34)
---
I receive this error from MSRDO20.DLL: "The identifier that starts with '1' is too long. Maximum length is 30."

This is my fonction:
---
Public Function mgvstrExecuterSQL(ByRef strErreur As String, strCommande As String) As Variant
On Error GoTo Erreur:

    Const METHODE = "mgvstrExecuteSQL"
    Dim qy As rdoQuery
    Dim rs As rdoResultset
    Dim intColonne As Integer
    Dim intRow As Integer
    Dim vstrTableau() As Variant

    strErreur = ""

    'Validation ouverture session
    If mConnection Is Nothing Then
        mgvstrExecuterSQL = Nothing
        strErreur = pgstrRetournerErreurSpecial(MODULE, METHODE, "Connection manquante au serveur SQL.")
        Exit Function
    End If
   
    'Vérification de la commande SQL
    If strCommande = "" Then
        mgvstrExecuterSQL = Nothing
        strErreur = pgstrRetournerErreurSpecial(MODULE, METHODE, "Commande SQL invalide.")
        Exit Function
    End If
   
    'Lancement de la commande SQL
    Set qy = New rdoQuery
    qy.SQL = strCommande
    'MsgBox strCommande
    Set qy.ActiveConnection = mConnection
   
    qy.RowsetSize = 1
   
    'Résultat
    Set rs = qy.OpenResultset()
    If rs.rdoColumns.Count > 0 Then
        ReDim Preserve vstrTableau(rs.rdoColumns.Count - 1, 0) As Variant
       
        'Nom des champs
        For intColonne = 0 To rs.rdoColumns.Count - 1
            vstrTableau(intColonne, 0) = Trim(rs.rdoColumns(intColonne).Name)
        Next
       
        'Valeur des champs
        intRow = 0
        With rs
            Do Until rs.EOF
                intRow = intRow + 1
                ReDim Preserve vstrTableau(rs.rdoColumns.Count - 1, intRow) As Variant
                For intColonne = 0 To rs.rdoColumns.Count - 1
                    vstrTableau(intColonne, intRow) = Trim(rs.rdoColumns(intColonne).Value)
                    If IsNull(vstrTableau(intColonne, intRow)) Then
                        vstrTableau(intColonne, intRow) = ""
                    End If
                Next
                rs.MoveNext
            Loop
        End With
    End If

    Set rs = Nothing
    Set qy = Nothing
    mgvstrExecuterSQL = vstrTableau

Exit Function
Erreur:
    Set rs = Nothing
    Set qy = Nothing
    strErreur = pgstrRetournerErreur(MODULE, METHODE)
End Function
---

Can I put the maximum length more than 30?