Amigos, Já tentei usando a API Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Estou usando Timer E nem mostra o Primeiro Registro, vai direto para o último Estou usando ADO E o seguinte código: numa outra parte... mConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb"
Set rs = New Recordset
rs.Open "SELECT count(ID) from tabela ", mConn, adOpenForwardOnly, adLockReadOnly
total = rs(0)
rs.Close
Private Sub Timer1_Timer()
Dim rs1 As Recordset
Dim i as integer
Dim L1 as String
Dim L2 as String
Dim L3 as String
Dim SQL as String
Set mConn1 = New Connection
mConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb"
Set rs1 = New Recordset
Loop2:
i = i + 1
SQL = "SELECT campo1,campo2,campo3 from tabela where ID=" & i
rs1.Open SQL, mConn1, adOpenForwardOnly, adLockReadOnly
L1=rs1(0)
L2=rs1(1)
L3=rs1(2)
Label1.Caption=L1
Label2.Caption=L2
Label3.Caption=L3
If i < total Then
rs1.Close
GoTo Loop2
Else
rs1.Close
End If O que estou fazendo de errado ?