Retirei a rotina do livro: Programando para Palm OS com VB e AppForge, do autor Jeff Borges e editora Moderna, páginas 49 até 63 ...
If OpenDataAppInglesDatabase = True Then
'Abre o banco DataAppIngles.PDB
'Faz a leitura do registro
If ReadDataAppInglesRecord(DataAppIngles) = True Then
' Insere frase
AFTxtFrases.Text = DataAppIngles.subject
Else
DataAppErros = True
End If
Else
DataAppErros = True
End If
Else
If OpenDataAppPortuguesDatabase = True Then
'Abre o banco DataAppPortugues
'Faz a leitura do registro
If ReadDataAppPortuguesRecord(DataAppPortugues) Then
AFTxtFrases.Text = DataAppPortugues.subject
Else
DataAppErros = True
End If
Else
DataAppErros = True
End If
End If
End Sub
---------------------------------
[]'s,
Tunusat.