Para Conexion Dinamica a la Base de Datos Con GX

msg('Conectando a base de datos... '+rtrim(&Base_datos) + ' En el servidor '+rtrim(&Servidor), nowait)
&Conexion = GetDatastore("Default")
&Conexion.Disconnect()
&Conexion.ConnectionData = "SERVER=" + rtrim(&Servidor) + ";DATABASE=" + rtrim(&Base_datos)
&Conexion.UserName = 'sa'
&Conexio.UserPassword = 'sa'
&Conexio.ShowPrompt = 3
&ConexionEstado=&Conextion.Connect()
If &ConexionEstado <> 0
msg('->'+str(&ConexionEstado)+' '+&Conexion.ErrDescription)
Else
msg('Se conecto a '+&Conexion.ODBCDatasourceName)
Endif