Conectar por ODBC Visual Basic 6.0 a Access

[Juamir]

Antes que nada buenas amigos listeros tengo este pequeño problema resulta que diseñe una pequeña aplicación para una pc y conecte la base de datos a través de un ConectionString mediante un procedimiento main() en un modulo, como se ve a continuación.

Sub main()
Entro = False
On Error GoTo errores
'conectar a la BD
Set DB = New ADODB.Connection
DB.ConnectionString = "Provider=microsoft.jet.oledb.4.0;" & _
"Data Source= " & App.Path & "\PROMODB.mdb" & ";"
DB.Open
End Sub

El detalle es que ahora hay que instalar la misma aplicación en 2 pc y que estas se conecten a una misma base de datos como hago para conectarme a la base de datos en vez de usar un ConnectionString usar un ODBC ya que la posibilidad de usar:
DB.ConnectionString = "Provider=microsoft.jet.oledb.4.0;" & _
"Data Source= " \\Servicor\RecursoCompartido\ " & App.Path & "\PROMODB.mdb" & ";"

No es viable ya que tendria que compilar tantos programas como PC tengo y además si cambian en nombre del pc dejaría de funcionar la base de datos teniendo yo que volver a compilar el programa.

Bueno de antemano les agradezco toda la ayuda que me puedan brindar en este caso.