Visual Basic - Abrir 2 BD con ADO

Hola...

como hago para reemplazar
ADODC1.RECORDSET por DBNEPTUNO.EMPLEADOS

con ado....???
digo para ocupar por ejemplo
with empleados
.
.
end with

gracias

Lo primero es estabplecer las variables con las cuales vas a abrir la base de datos es deccri debes colocar en un mpodulo o cuando se carge el formulario donde quieres abrir las dos tablas, o las dos bases de datos, depende que sea exactamente lo que quieres

Para las bases debes colocar

Set <base1> = new ADODB.Coonecction
<base1>.open = "Ruta"

Una para cada base

y para las tablas, depende de a cual base pertencen (por ejemplo para <base1>, que es una variable cualquiera para denotar la base que quieres abrir)

Set <tabla> = NEW ADODB.Recordset
<Tabla>.Open "nombre de la tabala a abrir", <base1>, adopenkeyset, adlockoptimistic

Todo segudio de comopas y en una sola linea, repirtes la operacion para cada tabala que quieras abrir