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.

[black_devil]

Hola, en un módulo

Código:

Public sql As String
Public cn  As ADODB.Connection
Public rs As ADODB.Recordset

Código:

Public Sub conexionbd()
'conexion ODBC SQL
Set cn = New Connection
Set rs = New Recordset
With cn
         .ConnectionString = "Provider=MSDASQL.1;Password=123;Persist Security Info=False;User ID=Admin;Data Source=Nombre del sistema en ODBC"   

                     
         .Open
End With
End Sub

NOTA: en el connectionstring el password va si tu bd access tiene pass, y el data source es el nombre que le das a la bd en origenes de datos ODBC

[black_devil]

Luego, en el loda de tu form, llamas al modulo, por ej.

Evento load del form:
modulo.conexionbd

[Bourne]

yo puse el nombre o ip del pc en una variable que esta en el registro de windows asi podes cambiarlo si algo pasa, es mas dinamico