Visual Basic - CONECTAR VB A UN AS400

COMO PUEDO CONECTAR UNA APLICACION VISUAL BASIC A UN AS400

LST: La manera mas facil es conectar una base de datos access y en tablas vas a donde dice adjuntar/atachar, esto es via ODBC, no vas a tener problemas, proba.

Tambien lo puedes hacer por OLEBD.

ex:

Public Const CsAS400 = "Provider=IBMDA400.DataSource.1;Persist Security Info=False;Data Source=192.168.1.3"

db.Open cs

s = "select TDESCAB from GPVDB.TBCTIENDAS where TROSIDR='" & reg!apeidr & "' and TJRNSTS = '1'"

Set reg = New ADODB.Recordset

reg.CursorLocation = adUseServer
reg.Open s, db, adOpenDynamic, adLockReadOnly

While Not reg.EOF

.... etc