• Sábado 20 de Abril de 2024, 04:32

Autor Tema:  Error '430' en tiempo de ejecucion.  (Leído 3018 veces)

fdo_tintore

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Error '430' en tiempo de ejecucion.
« en: Viernes 13 de Mayo de 2011, 18:19 »
0
Saludos
Tengo este problema con una aplicacion que esta desarrollada en vb6, el .exe funcionaba perfectamente, fue desarrollado bajo el sistema windows xp profesional.
hace unos dias cambiaron los equipos a windows 7, migre la aplicacion y realize unos cambios insignificastes en el codigo y compile el .exe, al distribuir el .exe me empezo a salir este mensaje en los equipos pero en mi maquina no me pasa.

Como puedo resolverlo...

Estuve checando donde se atora y es aquí

Private Sub Form_Load()

xxxxx
xxxxx
           
        LOGEO_SPLASH.TXTINICIO.Text = "Cargando Conexion..."
        LOGEO_SPLASH.Refresh

       
        ''''''''''''''''
        ' CONEXION SQL '
        ''''''''''''''''
       
        ' LLENAR LISTA DE USUARIOS
        FILTRO = "SELECT * FROM USUARIOS"
       
        ' TOMAR DATOS DE LA CONEXION
        mSQL = Trim(LSQL.Caption)                           ' TIPO DE SQL A USAR 2000 O 2005
        mDATA = Trim(LDATA.Caption)                         ' NOMBRE DEL SERVIDOR SQL
       
=>     RS.CursorLocation = adUseClient
        cn.CursorLocation = adUseClient
       
        ' se existe algun error lo muestra
        'On Error Resume Next
        Screen.MousePointer = vbHourglass
        ABORTAR = 1