gente, deu certo eu fiz assim...

        Dim DirBdDbase As String
        DirBdDbase = App.path
        Set BdDbase = OpenDatabase(DirBdDbase, False, False, "FoxPro 2.0")
        Consulta = "SELECT * FROM JDBVEI WHERE FICHA= '" & txtFic.Text & "' ORDER BY FICHA;"
        Set StDbase = BdDbase.CreateSnapshot(Consulta)

dar certo so quando o arquivo DBF esta na pasta onde esta sendo execultado o meu programa.

DirBdDbase = App.path ' mais o arquivo e de terceiro ele fica d:sgdpro

eu ja fiz assim:

DirBdDbase = "d:sgdpro"

mais ele da um erro 3219 Invalid aperation