AS/400 - ¡¡¡urge conectar base de datos con v. basic !!!

HOLA ME URGE CONECTAR UNA BASE DE DATOS DEL AS/400 CON VISUAL
PARA POSTERIORMENTE ABRIRLA DESDE VISUAL POR MEDIO DE UN BOTON (COMMAND BUTTON) BUENO CON ESTE CODIGO( Private Sub Command1_Click()
DoEvents
Set DB400 = OPENDATABASES("", False, False, Connect)
Connect = "ODBC;DSN=GPOCARTE...;UID=PTOLEN1;PWD=PTOLEN1"

End Sub)LA ABRE SOLO QUE ME MANDA A SELLECIONAR EL TIPO DE DATOS O ARCHIVO) LO QUE YO QUIERO ES QUE ME MANDE DIRECTAMENTE AL PASWORD PERO NO SE COMO HACERLO YA LO INTENTE PERO NO NO HE PODIDO SI ALGUNO DE USTEDES LO SABEN POR FAVOR ESCRIBANME SE LO AGRDEZCO DE ANTEMANO

P.D. ESPERO ME PUEDAN AYUDAR PORQUE DE VERDAD ME URGE MUCHO BUENO HASTA LUEGO Y NUEVAMENTE GRACIAS

HOLA ME URGE CONECTAR UNA BASE DE DATOS DEL AS/400 CON VISUAL
PARA POSTERIORMENTE ABRIRLA DESDE VISUAL POR MEDIO DE UN BOTON (COMMAND BUTTON) BUENO CON ESTE CODIGO( Private Sub Command1_Click()
DoEvents
Set DB400 = OPENDATABASES("", False, False, Connect)
Connect = "ODBC;DSN=GPOCARTE...;UID=PTOLEN1;PWD=PTOLEN1"

End Sub)LA ABRE SOLO QUE ME MANDA A SELLECIONAR EL TIPO DE DATOS O ARCHIVO) LO QUE YO QUIERO ES QUE ME MANDE DIRECTAMENTE AL PASWORD PERO NO SE COMO HACERLO YA LO INTENTE PERO NO NO HE PODIDO SI ALGUNO DE USTEDES LO SABEN POR FAVOR ESCRIBANME SE LO AGRDEZCO DE ANTEMANO

P.D. ESPERO ME PUEDAN AYUDAR PORQUE DE VERDAD ME URGE MUCHO BUENO HASTA LUEGO Y NUEVAMENTE GRACIAS

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡SUPER URGENTE!!!!!!!!!!!!!!!!!!!!!!!!!!

ingresa a www.recursos-as400.com, ahi existe una foro de visual basic y puedes recuperar la rutina que va a solucionar el problema...
P.D. estoy Cesante si sabes de trabajo para un experimentado en AS400, escribeme a [email protected]
Saludos... y suerte...

tienes que utilizar lo que es un MOVEXSOCK