CONECTAR ACCESS CON BASE DE DATOS DBASE (*.DBF)

Me.Common.ShowOpen
Rutadestino = Me.Common.FileName
nombre = Me.Common.FileTitle
SoloDir = Replace(Rutadestino, "\" & nombre, "")
SoloNombreDes = Replace(nombre, ".dbf", "")
' Lo que se abre como base de datos es realmente el DIRECTORIO donde estan los archivos DBF
Set DbDes = OpenDatabase("", True, False, "dBASE III;database=" & SoloDir)
' Abrir un DBF (por ejemplo ARTICULOS.DBF ordenado por CODIGO
Set RsDes = DbDes.OpenRecordset("SELECT DISTINCT nombre FROM " & SoloNombreDes)
ListaCambia.Clear
While Not RsDes.EOF
If Not IsNull(RsDes.Fields("nombre")) Then
ListaCambia.AddItem RsDes.Fields("nombre")
End If
RsDes.MoveNext
Wend