Qual o tipo de Provider vc usa para conectar o interbase ?
eu uso o IbOleDb com ADO e funciona normalmente,
Agora se o problema for algum pau no interbase mesmo, teste o código em outra máquina , derepente pode dar certo.
Aqui vai um exemplo que preparei pra vc.
Tem que ter o IbOleDb.Dll registrado na máquina
Option Explicit
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Sub Abre()
Dim StringFire As String
Set Cn = New ADODB.Connection
StringFire = "Provider=IbOleDb;server=localhost; data source=C:Arquivos de programasBorlandInterBaseexamplesDatabaseemployee.gdb"
Cn.Open StringFire, "SYSDBA", "123"
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.ActiveConnection = Cn
Rs.Source = "select * from employee"
Rs.Open
Rs.MoveMin
Rs.MoveMax
Rs.MoveMin
End Sub
Private Sub Command1_Click()
Abre
Dim Texto As String
Dim Total As Integer
While Not Rs.EOF
Texto = Rs(0) & Rs(1) & Rs(2) & Rs(3) & Rs(4) & Rs(5) & Rs(6) & Rs(7) & Rs(8) & Rs(9) & Rs(10)
Print #1, Texto
Text1 = Total
Total = Total + 1
Text1.Refresh
Rs.MoveNext
Wend
MsgBox "Fim"
Set Rs = Nothing
Set Cn = Nothing
End Sub
Private Sub Form_Load()
Open "C:silviovbfirebirdfirebird.txt" For Output As #1
End Sub
