Visual Basic - error al poner path para bd en una aplicacion de busqueda

buenas tardes:
tengo una pequeña aplicacion de busqueda, donde queria poner la base de datos en una unidad virtual de otra pc, he intentado poniendo bastantes codigos pero no me acepta por nada del mundo, copio el codigo...haber si por ahi me corrigen

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\User\Escritorio\filtrar datos\based1." & _
"MDB;Persist Security Info=False"

With Adodc1
.CommandType = adCmdText
.RecordSource = "Select * From agenda"
.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
' DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
DataGrid1.Columns(0).Width = 1100
DataGrid1.Columns(1).Width = 12050
DataGrid1.Columns(2).Width = 850
Form1.WindowState = 2
.Visible = False


End With

With Combo1
Combo1.Text = "Descripción"
End With
Text1 = ""


End Sub


Private Sub text1_Change()
On Error GoTo error_Handler
With Adodc1
If Text1 <> "" Then
.Recordset.Filter = Combo1 & " LIKE '*" + Text1 + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Columns(0).Width = 1100
DataGrid1.Columns(1).Width = 12050
DataGrid1.Columns(2).Width = 850
Else
.Recordset.Filter = ""
End If
.Refresh
End With
Exit Sub
error_Handler:
If Err.Number = 3265 Then
MsgBox "el campo seleccionado no es válido", vbCritical
Else
MsgBox Err.Description, vbCritical
End If
End Sub

Si creaste una unidad de red de una carpeta compartida en otra maquina no deberias tener problema.
Crea un archivo de texto, renombralo como .udl
Hacele doble click y configura el proveedor y la ubicacion
Guarda
despues abrilo con un notepad por ejemplo y copiate el conection string que se genero.

saludos