Visual Basic.NET - Ayuda Urgente

De antemano gracias, mi problema es que necesito actualizar la información de un campo de en una base de datos DBF, ahora bien, trabajo en visual basic 2005 y he creado la conexión con ADODB, uso una conexión a una base de datos acces donde esta los datos que quiero actualizar a la DBF, todo funciona bien hasta que quiero filtrar los datos en la DBF, me genera un error de argumentos, si ven mi error por favor corrijan me, aqui les dejo parti del codigo:

Cnn2 = New ADODB.Connection
Try
With Cnn2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.IO.Path.GetDirectoryName(TextBox2.Text) & ";Extended Properties=""DBASE 5.0;"";"
.Open()
End With
Catch ex As Exception
MsgBox("Apertura de conexiones DBF" & vbCrLf & ex.Message)
GoTo Salida
End Try

Try
Data2 = New ADODB.Recordset
With Data2
'.CursorLocation = ADODB.CursorLocationEnum.adUseClient
.CursorType = ADODB.CursorTypeEnum.adOpenDynamic
.LockType = ADODB.LockTypeEnum.adLockBatchOptimistic
.ActiveConnection = Cnn2
.Open("Select * from Data.dbf")
End With
Catch ex As Exception
MsgBox("Apertura de Recordsert DBF" & vbCrLf & ex.Message)
GoTo Salida
End Try

For I As Integer = 0 To 20
Fila = vb.Mid(Data1.Fields("Fila").Value, InStrRev(Data1.Fields("Fila").Value, "") + 1)
Direccion = Data1.Fields("Fila").Value
With Data2
.MoveNext()
.Filter = "[FILENAME] Like '*" & Replace(Fila.ToString, "'", "''") & "'" ( aqui me genera el error)
If .EOF = False Then
MsgBox("SI encontro")
Else
MsgBox("NO encontro")
End If
.Filter = 0
End With
Data1.MoveNext()
If Data1.EOF = True Then Exit For
Next

Les agradezco cualquier aporte

Me parece que te falta una comilla simple dentro de Replace(Fila.ToString, "''", "''")
en el segundo parametro, sera eso?. Saludos

Gracias por la ayuda, pero no es eso =( , el error que me sale dice

Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros
errorcode -2146825287

si cambio el operador like por = no me genera el error, pero tampoco consigue lo buscado....

seguro es algo que me falta en la conexión o en la apertura de la tabla, pero no se que es

Para comenzar no dices que manejador de bases de datos usas
(Dbase, Foxpro, cliper... etc)

Lo que he notado es que las sentencias LIKE no siempre responden a la opcion
* en ocasiones dependiendo del manejados cambian los caracteres por % o * verifica que tu consulta funcione en el manejador e intenta copiarla directamente sin usar las variables... primero prueba filtrando con una expresion comun.

Like "*ejo" por ejemplo prueba con otros caracteres como % verifica en tu manejador como decia.

Muchas gracias por la información, no estoy muy seguro de que base es el programa que genero esas tablas, por los indicios creo que es visual fox, es un programa externo y le hago una herramienta de mapeo de rutas de archivos.

probare tu sugerencia... muchas gracias