Conectar con dBASE

Necesito conectar VB con una base de datos dBase. tengo el sgte codigo:

Private Sub Form_Load()
Set base = OpenDatabase("c:\meses", , dbOpenDynaset, "dBASE 5.0")
Set SQL = base.CreateQueryDef("")
SQL.SQL = "select * from mes1.dbf order by codigo;"
Set rs = SQL.OpenRecordset()
rs.MoveFirst
Do While Not rs.EOF
List1.AddItem rs!codigo
rs.MoveNext
Loop
End Sub

Pero al ejecutarlo me sale el sgte error:

Me dice que el fichero o directorio 'c:\meses' esta abierto con uso
exclusivo o no tengo los permisos.
pero lo raro es que no lo tengo abierto, nada abierto...

Salu2.Gracias por la ayuda