sin odbc
no te hace falta.
Private conexion_192_168_xxx_xxx As New ADODB.Connection
Private CONEXION_LECTURA_ESCRITURA As New ADODB.Command
Private registros As New ADODB.Recordset
Private registro1 As New ADODB.Recordset
Private xqry As String
Option Explicit
Private Sub Form_Load()
'-------------------
'CONECTAR CON BASE DE DATOS
'-------------------
conexion_192_168_xxx_xxx.Open "Provider=IBMDA400;Data Source=192.168.xxx.xxx;", "user", "contraseña"
Set CONEXION_LECTURA_ESCRITURA.ActiveConnection = conexion_192_168_xxx_xxx
'-------------------
'leer empresas
'-------------------
xqry = "SELECT * FROM " & "libreria.fichero"
registros.CursorLocation = adUseServer
registros.Open xqry, conexion_192_168_xxx_xxx, adOpenDynamic, adLockPessimistic