VB6 x DataReport Sem enviroment ?

Ao imprimir um relatório com DataReport, sem usar um Enviroment, o data report faz o seguinte:
Ex.: no DataReport tenho 3 RptTextBox, na tabela MySQL, tenho 10 campos populados.
Ao executar o DataReport, ele joga os três primeiros campos da tabela nos três primeiros RptTextBox, eu gostaria de saber como selecionar o campo 03, 05, 08 ao invés do 01, 02 e 03, da tabela para ser exibido no DataReport.

para imprimir uso a seguinte codificação:

Private Sub cmdImprime_Click()

   On Error GoTo cmdImprime_Click_Error

With ReportEstoque
     Set .DataSource = Nothing
     .DataMember = ""
     Set .DataSource = prs.DataSource
     With .Sections("Section1").Controls
          For i = 1 To .Count
              If TypeOf .Item(i) Is RptTextBox Then
               .Item(i).DataMember = ""
               .Item(i).DataField = prs.Fields(i - 1).Name
            End If
       Next i
   End With
.Show
End With

   On Error GoTo 0
   Exit Sub

cmdImprime_Click_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") & Erro na seleção de dados para a geração do Formulário."
End Sub

Vlw