[Resolvido] VB6 - Listar 1 registro exibi-lo em Labels aguardar u

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 ?