Erro!

[Guest Oliveira]

Option Explicit

Dim BUSCA As String

Dim MEUBANCO As String

Dim TEXTO As String

Dim MyDb1 As Database

Dim MyRs1 As Recordset

Private Sub Command1_Click()

 

BUSCA = ""

MEUBANCO = "nn.mde"

SetAttr MEUBANCO, vbNormal ' ERRO 53

Set MyDb1 = DBEngine.Workspaces(0).OpenDatabase(MEUBANCO, False, False, ";PWD=1")

Set MyRs1 = MyDb1.OpenRecordset("Select * FROM Tabela1 Where nome Like '" & BUSCA & "*'  ")

    While Not MyRs1.EOF

    TEXTO = TEXTO + MyRs1!nome & " ===== " & vbCrLf + vbCrLf

    MyRs1.MoveNext

    Wend

   

    Text1.Text = TEXTO

End Sub

Porque será que tá dando sempre erro na linha em vermelho ??

[Graymalkin]

A mensagem do erro 53 é "File not found", ou seja, "Arquivo não encontrado". Ou o nome do arquivo está incorreto ou ele não existe ou ainda a pasta corrente não é a que você está esperando.

Abraços,

Graymalkin

[Guest Guest]

Valeu, deu certo aqui.

Obrigado.