Visual Basic.NET - Duda con codigo

Buenas noches....

Estoy desarrollando un vb 2005 y sql server y tengo varios winforms uno de ellos es un reporte con el Crystal Report que trae vs2005.

tengo el siguiente codigo para traer ciertos datos de una tabla en SQL server, pero no hallo la forma de que mi unboundfield recoja todos los datos de la tabla y los muestre como una lista, ejemplo:

Persona
-------------
Carlos
PEPE
Maria
Andrea
etc........

este es el codigo....
_________________
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
Imports System.Data.SqlClient
___________________________

Dim rpt As New cierre_de_cajas 'aqui llamo a mi reporte

'Try

rptviewer.ReportSource = rpt

Dim ParamFiltro As New ParameterValues()
Dim Parametro As New ParameterDiscreteValue()

Dim strConn1 As String = "server=xxxxxxxxxxx; Trusted_Connection=Yes;Password=xxxxxxxx;Persist Security Info=True;User ID=xxxxxx;Initial Catalog=xxxxxxxxx"
Dim MySQL1 As String = "Select * From xxxxxxxx where xxxxxx = '" & xxxxxx & "' "
Dim MyConn1 As New SqlConnection(strConn1)
Dim objDR1 As SqlDataReader
Dim Cmd1 As New SqlCommand(MySQL1, MyConn1)
MyConn1.Open()
objDR1 = Cmd1.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
While objDR1.Read


Parametro.Value = objDR1("monto_efectivo") ' Esto es lo que deseo mostrar
ParamFiltro.Add(Parametro)

Dim MisParametros As ParameterFields = rptviewer.ParameterFieldInfo
MisParametros("UnboundString2").CurrentValues = ParamFiltro

' Como veran UnboundString2 es el unboundfield de mi reporte en el cual deseo mostrar los diferentes registros de mi tabla en SQL [objDR1("monto_efectivo") ]

End While
MyConn1.Close()

' Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical, "")
' End Try
-----------------------------------
Este codigo no me funciona dice que el unboundstring2 esta fuera de index!!

Me podrian ayudar a resolver este problemilla.....

Gracias a todos!!!!

Hola nuevamente: con esto debe funcionar bien

While objDR1.Read

'Esto es una sola linea
rpt.DataDefinition.FormulaFields("UnboundString1").Text = "'" + objDR1("monto_efectivo") + "'"

End While

comenta todo lo anterior referente a parametro y parametro filtro

hasta pronto