Visual Basic - dbase

que tal, tengo un problema al querer accesar un archivo de dbase .DBF

Set bdd9 = OpenDatabase("c:\lupita\archivos\", False, False, "dbase III;")
existe = "c:\lupita\archivos\"
Do While fecini <= fecfin

For b = 1 To 6
strdia = "au" & Mid(fecini, 1, 2) & Mid(fecini, 4, 2) & Mid(fecini, 9, 2) & ".00" & Trim(Str(b))

If FileSystem.Dir(existe & strdia) <> "" Then
archven = 1
Label5.Caption = strdia
Label5.Refresh

Set rw = bdd9.OpenRecordset(strdia)

1.- cuando valido if filesystem.dir() SI ENCUANTRA EL NOMBRE DEL ARCHIVO
2.- pero cuando quiero abrir Set rw = bdd9.OpenRecordset(strdia), me manda error de que no existe el archivo o la ruta esta mal. Cabe mencionar que son varios archivos que debo abrir por eso del "FOR" algunos ejemplos son AU120206.001, AU130206.002, AU140216.003 son ventas por día. Hice una prueba de cambiar un archivo de venta así

AU200206.001 REMPLACE POR AU200206.DBF, entonces así si me abre el recordset. pero no debo cambiar las extensiones 001, 002, 003, 004, POR .DBF, YA QUE ME DICEN EL NUMERO DE CAJA A QUE PERTENECE, además si son archivos de dbase.


Gracias..............

proba con lo siguiente

Set rw = bdd9.OpenRecordset("c:\micarpeta\strdia")

suerte