Hola Jorge López.
Comienza buscando desde tu pc el equipo con el que te quieres conectar seleccionando desde 'Inicio' buscar un pc. Usa su ip o su nombre de dominio. Si encuentras la máquina, no tendrás otra cosa que hacer que al crear la cadena de conexión con la bd referierte a ella de la forma que te comenté en tu anterior post (DataSource=\\99.99.99\Ruta\bd.mdb). Que esto funcione correctamente puede depender de la configuración de la red y de sus equipos, en este tema, la configuración de routers que utilices, túneles definidos, y cosas por el estilo, pueden ser determinantes.
Otra opción es que uses RDO. Yo no estoy nada puesto en el tema, pero por ahí supongo que habrá abundante información.
Sobre lo que comentas del archivo que deseas procesar, no comprendo cúal tiene que ser el resultado de la función que buscas, pero básicamente lo que haría es leer línea a línea de un archivo, procesar cada línea y guardarlo en otro archivo. Algo así:
Private Function Proceso() As Boolean
On Error Goto Err_Proceso
Dim intCanalI as Integer, intCanalO as integer
intCanalI = Freefile
Open "C:\Ruta\ArchivoI.txt" For Input As #intCanalI
intCanalO = Freefile
Open "C:\Ruta2\ArchivoO.txt" For Output As #intCanalI
Dim str1 As String
Do until EOF(intCanalI)
Line Input #intCanalI, str1
print #intCanalO, ProcesoLinea(str1)
Loop
Proceso = True
Exit_Proceso:
On Error Resume Next
Close #intCanalI
Colse #intCanalO
Exit Function
Err_Proceso:
Msgbox "(" & Err.Number & ") " & Err.Description, vbCritical,"Proceso"
Resume Exit_Proceso
End Function
Private Function ProcesoLinea(Byval Linea As String) As String
'Esta función debería procesar una línea.
'ProcesoLinea=xxxxxxx
End Function
A la función 'ProcesoLinea' se le pasa como parámetro cada una de las lineas del archivo de entrada, la procesaría según tus necesidades, y devolvería una cadena con el resultado, que a su vez es grabada en el archivo de salida.
Si tienes problemas con el código para procesar cada línea, no dudes en preguntar... te diría algo, pero es que no he comprendido lo que necesitas.
Suerte.
