Conectar desde Visual Basic 6 con DB2 de AS400

Lo primero: conseguir los controladores ODBC para DB2 (formato en el que supongo trabaja tu AS) para poder crear desde "Panel de Control / Origenes de Datos ODBC", un DSN (Origen de Datos) que te conecte con la base de datos del servidor. Por ejemplo, el IBM DB2 Connect versión 7.1.

Esto te permitirá agregar un nuevo DSN de sistema que utilice el DRIVER "IBM DB2 ODBC DRIVER".

Una vez instalado el controlador, "Panel de Control / Origenes de Datos ODBC", crea el DSN de Sistema para DB2 y llamale RDSNA por ejemplo.

Una vez creado el DSN, desde el visual, en la ventana de datos como dices tu por ejemplo podrás elegir este origen de datos, ver sus tablas, vistas, etc... O bien, con ADO, utilizar el adodc (ADO Data Control) enganchándolo a nuestro DSN. O bien, con ADO, desde código fuente, utilizar esta ConnectionString para el objeto conexión:

"Provider=MSDASQL.1;Password=<tu_clave>;Persist Security Info=True;User ID=<tu_usuario>;Data Source=<RDSNA>"

<tu_clave> : aqui pones tu clave
<tu_usuario> : aqui tu usuario
<RDSNA> : este es el nombre del DSN que has creado

Y a echarle lineas...

Apéndice A:
* ¿De donde leches he sacado ese churro de cadena de conexión?

* Pues una vez creado el DSN desde el Panel de Control, al que puse "RDSNA" de nombre. En el escritorio y con el botón derecho seleccionar "Nuevo/Microsoft Data Link", esto te guiará para crear un enlace a datos al DSN "RDSNA".

Cuando tengo el Data Link creado, lo abro con el Block de Notas (por ejemplo con el boton derecho a la vez que mantienes la tecla SHIFT (MAYS) sobre el Data Link y seleccionando "Abrir con" y buscando en la lista NOTEPAD, po eso.)

---