Establecer ADO Conexion en Sitio de Red

[svei00]

Buen día ¿Cómo puedo hacer para establecer la ruta y/o path en un sitio de Red para conectar una base de datos de Excel con una de Access, me ha funcionado con este código para otra conexión que hice que no es ADO

 Dim ruta, Año, Mes, Dia, nombre As String

ruta = "[URL="file://\\192.168.1.1\c"]\\192.168.1.1\[/URL]Captura"

Año = ActiveSheet.Range("AB6").Value

Mes = ActiveSheet.Range("AB3").Value

Dia = ActiveSheet.Range("AB5").Value

nombre = ActiveSheet.Range("A1").Value

guardatl = ruta & "\" & Año & "\" & Mes & "\" & Dia

libro = ruta & "\" & Año & "\" & Mes & "\" & Dia & "\" & nombre

[/CODE]

pero al querer ponerlo al siguiente código para establecer la conexión ADO, no me funciona

[CODE]Function ADO_CONEXION(CONEXION As Object)
On Error GoTo ERROR_ADO_CONEXION
Set CONEXION = New ADODB.Connection
CONEXION.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
[B]ThisWorkbook.Path [/B]& "\Captura.accdb" & ";Persist Security Info=False;"
ADO_CONEXION = 0
Exit Function
'------------------------
ERROR_ADO_CONEXION:
ADO_CONEXION = 1
End Function
[/CODE]

no les pongo las distintas variables que intentado para definir el path para evitar confundirlos, mejor les dejo el código como me funciona en una ruta local. Saludos y de antemano muchas gracias por su ayuda