SoloCodigo

No tengo muy claro tu consulta, pero lo poco que he entendido quieres hacer un sistema cliente servidor con una bd en access si se puede no hay ningun inconveniente solo que tienes que usar una pc como servidor o principal donde vas a almacenar tu BD en Access en una ruta Fija Ejm. "C:\Sistemas\BD" ok y luego tienes que compartir esa carpeta. ahora en la ruta de conexion tienes que colocar solamente "\\servidor\BD\BaseDeDatos.mdb" como ejemplo.
Cualquier consulta me mandas un mensaje

Explicate un poco mas que es lo que deseas realizar asi poderte ayudar.

Saludos
Jonathan V

Cuando trabajas con Un Servidor  SQL2000 debes de trabajar de forma Cliente - Servidor de esa manera tu BD se encuentra centralizada en el servidor de SQL2000. Ahora si no puedes conectarte podrias indicarme de que manera te estas conectando ? "El Codigo si puedes enviame para poderte ayudar"

Saludos
Jonathan Vidal

Verifica el Nombre de la Tabla y los Campos ahora si segun tu consulta SQL el Nombre de tu Tabla es el "Afiliado 1"

Para poder ejecutar esa consulta tendrias que hacer lo Siguiente:

Select * from [Afiliado 1] order by Campo1

Pd:

Cuando el Nombre de la Tabla o el Campo estan separados por un espacio tienes que colocarlo entre Corchetes [Tabla 1] o entre este simbolo dependiendo de que Base de Datos `Tabla 1`

Saludos
Jonathan Vidal

Si Deseas trabajar con Matriz de Controles por Ejemplo:

Tienes el Control Picture1 y luego haces que se cree una matriz de Controles, Imaginemonos tener 5 Picture con la matriz quedaria asi su nombre:

Picture1(0)
Picture1(1)
Picture1(2)
Picture1(3)
Picture1(4)

Ahora como ya lo tienes como matriz puede hacer un bucle de la siguiente manera para ke todos cumpla una determinada funcion o cargarle algo a su propiedad por Ejemplo:

Dim x as Integer
For x=0 to 4
     Picture1(x).Picture=LoadPicture("C:\Imagen.bmp")
next x

Este Bucle va a recorrera por todas los controles Picture y le va a Cargar la Imagen de Ejemplo "Imagen.bmp"

Suerte

Saludos
Jonathan Vidal

Bueno para los que quieren trabajar con Conexiones Remotas desde Visual Basic con servidores de Bd como MySql 5 este es un Codigo de Coenxion Remota y en una Lan Normal.

dim consql as string
    With CONEC1
        Set CONEC1 = New ADODB.Connection
        CONEC1.CursorLocation = adUseClient
        consql = "Driver={MySQL ODBC 3.51 Driver};server=" & IniServer & ";uid=" & IniUsu & ";pwd=" & IniPsw & ";database=" & IniBD & ";connection="
        CONEC1.ConnectionString = consql
        CONEC1.CommandTimeout = 40
        CONEC1.Open
    End With

Las Variables :
IniServer = Numero de Ip del Servidor no importa que este en Windows o Linux
IniUsu = Nombre del Administrador o Usuario de MySql 5
IniPsw = PassWord del Administrador o Usuario de MySql 5
IniBD = Nombre de la Base de Datos

Para el SQL Server 2000 es de la siguiente Manera.

With bd
Set bd = New ADODB.Connection
bd.CursorLocation = adUseServer
consql = "Provider=SQLOLEDB.1;Password=" & IniPsw & ";Persist Security Info=True;User ID=" & IniUsu & ";Initial Catalog=" & IniBD & ";Data Source=" & IniServer & ""
bd.ConnectionString = consql
bd.Open
End With

IniServer = Numero de Ip del Servidor no importa que este en Windows o Linux
IniUsu = Nombre del Administrador o Usuario de MySql 5
IniPsw = PassWord del Administrador o Usuario de MySql 5
IniBD = Nombre de la Base de Datos

Te paso un pequeño ejemplo que puedes emplearlo. Esta rutina esta trabajando con un recordset.

Sub generar()
    With rsclascartera
        If .State = 1 Then .Close
            .Open "select * from CLASECARTERA", bd, adOpenStatic, adLockOptimistic
            If .BOF = True Then
               Text1.Text = "Cl001"
            Else
                .MoveLast
                Text1.Text = "Cl" + Right$(Str$(Val(Right$(.Fields(0), 3)) + 1001), 3)
            End If
    End With
End Sub

Cualquier Cosa me mandas un mensaje a mi correo y con gusto te Ayudo
Suerte!!!