Como usar una u otra clase en funcion de capa.

[netsistemas]

Gracias, al final use una INTERFACE que implementé en ambas clases.
Despues al ejecutar desde un proyecto u otro hago:
Public Sub CrearInstancia(ByVal AccesoWEB As Boolean)
If Datos Is Nothing Then
If AccesoWEB Then
Datos = New DA.clsConexionODBCI
Else
Datos = New DA.clsConexionClientI
End If
End If
End Sub

Salvo sorpresas, solucionado.
Para garantizar una clase única, he incluido un módulo con una instancia de esta clase, lo suyo seria hacerlo aplicanto el patrón singleton (o eso creo), pero esto finfla.