problemas com o active report

Oi!

Estou tentando imprimir umas fichas de cadastro no Active Reporte, utilizo uma conexão ADO com o Banco SQL Server.

Gostaria de saber como faço para imprimir os registros de um a tabela do banco, pois só consigo fazer com o active exiba apenas o 1º registro.

Segue ó código que estou utilizando no active report, tbcx é meu recordset.

Private Sub Activereport_fetchdata(eof As Boolean)

If Not tbcx.eof Then
tbcx.MoveNext
Else
Exit Sub
End If

End Sub

Private Sub Detail_Format()

If Not tbcx.eof Then
   field1.Text = tbcx.Fields("sequenciafc")
   Dim Wano, Wmes, Wdia As String
   Wano = Mid$(tbcx.Fields("data"), 3, 2)
   Wmes = Mid$(tbcx.Fields("data"), 5, 2)
   Wdia = Mid$(tbcx.Fields("data"), 7, 2)
   Field2.Text = Wdia + "/" + Wmes + "/" + Wano
   'Image1.Picture = LoadPicture("" & Fields.Item("foto"))
   Image1.Picture = LoadPicture("" & tbcx.Fields("foto"))
   Field3.Text = tbcx.Fields("categoria")
   Field4.Text = tbcx.Fields("titulo")
   Field5.Text = tbcx.Fields("sequencia")
   Field6.Text = tbcx.Fields("sequencia_tit")
   Field7.Text = tbcx.Fields("nome")
   Field8.Text = tbcx.Fields("modalidade")
   Field9.Text = tbcx.Fields("categoria_esp")
   Field10.Text = tbcx.Fields("apelido") & ""
   Field11.Text = tbcx.Fields("dtnasci") & ""
   Field12.Text = tbcx.Fields("tamanho") & ""
   Field13.Text = tbcx.Fields("posicao") & ""
   Field14.Text = tbcx!foneres & "/" & tbcx!fonecom & "/" & tbcx!celular & "-" & tbcx.Fields("OBS") & ""
Else
Exit Sub
End If
End Sub