Sub BuscaAlvara
novaBD.InitializeNewInstance ("com.hexiong.jdbf.DBFReader", Array As Object ("here you place the path to the file\file.dbf"))
Private dados() As Object
dados=novaBD.RunMethod("nextRecord",Null)
alvara=dados(13)
novaBD.RunMethod ("close",Null) ' this closes the dbf file
End Sub