El amigo Wilfredo me hizo esa pregunta y creo que estaría bien que lo publicara por aquí:

Este es el código básico, a partir de aquí la imaginación es el límite:

function main()                                                          
                                                                         
    local cDb := "E1Prueba"                                              
    local oCon                     
                                                                         
    // Sistema Cliente/Servidor                                          
    local cHost := "127.0.0.1"                                           
    local cUser := "root"                                                
    local cPwd := "root"                                                 
                                                                         
    // Creamos el objeto Connect e intentamos la conexión:               
    oCon := TMSConnect():New()                                           
    oCon:Connect( cHost, cUser, cPwd )                                   

    if !oCon:lConnected                                                  
        Alert( "No se ha establecido la conexión" )                      
        // Liberamos memoria                                             
        oCon:Close()                                                     
        return( nil )                                                    
    endif                                                                
                                                                         
    cls                                                                  
// Este es el código:           
    if oCon:Execute( "CREATE USER eagle1 IDENTIFIED BY 'eagle1'" )       
        Alert( "El usuario se creó correctamente" )                      
    else                                                                 
        Alert( "Error al crear el usuario" )       
         oCon:oError:Show( .t., "Que no tío" )  // Amplia la descripción del error                   
    endif                                                                                                
...
Fijaros que el nombre del usuario eagle1  no va entre comillas simples pero la password 'eagle1' si que va.