URGENTE Datagrid

Aqui esta mi codigo si funciona realizo la conexio n a oracle
mas adelante explico mi problema

''una instancia a la clase Clase_conexion
Dim conexion As New Clase_Conexion

''Declaramos una conexión
Dim conn As New OracleConnection(conexion.cadena_conexion)
'Un DataSet
Dim DSContratos As New DataSet
Dim ODAContratos As New OracleDataAdapter

'Instanciamos y cramos una nueva tabla de estilos
Dim TableStyle1 As New DataGridTableStyle

Private Sub DTPFecha1_ValueChanged(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles DTPFecha1.ValueChanged
''llamo a la funcion de volver a cargar datos en el data set cuando
'cambia los datos en DTPFecha1

recargar()
End Sub

Private Sub BLimpiar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BLimpiar.Click
DSContratos.Tables(0).Clear()
End Sub

Private Sub recargar()

Dim Mifecha_sys As Date = Date.Today

Dim contra_caduca As Date
'DTPFecha1.Value=el valor incial es 22/05/2005

contra_caduca = DTPFecha1.Value

Dim cmdcontratos As New OracleCommand("SELECT " & _
"CONTRATOS.ID_CONSIGNATARIO," & _
"CONSIGNATARIOS.NOM_CONSIGNATARIO, " & _
"CONTRATOS.INI_CONTRATO, " & _
"CONTRATOS.FIN_CONTRATO, " & _
"CONTRATOS.VIGENCIA_CONTRATO " & _
"FROM " & _
"CONTRATOS, CONSIGNATARIOS " & _
"WHERE " & _
"CONTRATOS.ID_CONSIGNATARIO=CONSIGNATARIOS.ID_CONSIGNATARIO AND "
& _
"CONSIGNATARIOS.ID_CONSIGNATARIO=CONTRATOS.ID_CONSIGNATARIO " & _
"AND CONTRATOS.FIN_CONTRATO >= '" & contra_caduca & "' and
CONTRATOS.FIN_CONTRATO <= '" & Mifecha_sys & "'" & _
"ORDER BY CONTRATOS.FIN_CONTRATO", conn)

'abro la conexion
conn.Open()

Dim DR As OracleDataReader = cmdcontratos.ExecuteReader()

Do While DR.Read

''Declaramos un Data Adapter

'Asignamos el DataSource y dataaMenber
Dim ODAContratos As New OracleDataAdapter(cmdcontratos)
ODAContratos.Fill(DSContratos, "CONTRATOS")
DTGridContratos.DataSource = DSContratos
DTGridContratos.DataMember = DSContratos.Tables(0).TableName

Loop
conn.Close()

'para que no agregue nada al grid
'Instanciamos y creamos nuestro manejador
Dim cm As CurrencyManager
cm = CType(BindingContext(DSContratos,
Me.DSContratos.Tables(0).TableName), CurrencyManager)
'Instanciamos y creamos un DataView asosiado a nuestro manejador
CurrencyManager
Dim Dv As DataView = CType(cm.List, DataView)
'Asignamos el valor que deseamos para evitar o permitir nuevos
registros
Dv.AllowNew = False

End Sub

Private Sub BCerrar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BCerrar.Click
Me.Close()

End Sub

Datos que despliega cuando carga la forma
casasers3 sadasd 14/05/2005 22/05/2005 2

Pero si despues cambio el valor a DTPFecha1 /05/2005
casasers3 sadasd 14/05/2005 22/05/2005 2 (primera consulta)

casaramo1 Casa ramos 14/05/2005 20/05/2005 6-
casadura1 Casa duran 14/05/2005 21/05/2005 7
casasers3 sadasd 14/05/2005 22/05/2005 2solo debia
mostrar estos datos

casaramo1 Casa ramos 14/05/2005 20/05/2005 6ya no...por que mete datos
repetidos???
casadura1 Casa duran 14/05/2005 21/05/2005 7
casasers3 sadasd 14/05/2005 22/05/2005 2
casaramo1 Casa ramos 14/05/2005 20/05/2005 6
casadura1 Casa duran 14/05/2005 21/05/2005 7
casasers3 sadasd 14/05/2005 22/05/2005 2
NOTA:El error que tengo es que solo me debe desplegar 3 filas asi es lo que
cumple la condision en el SQL pero por movivos que desconozco no me
limpia el dataSEt o el DataGirtd???
ya que me deja el primer registro cargado por la forma + los datos
de la segunda consulta pero con datos repetidos

DAtos en la base de datos (Son todos)

casaramo1 Casa ramos 14/05/2005 20/05/2005 6
casadura1 Casa duran 14/05/2005 21/05/2005 7
casasers3 sadasd 14/05/2005 22/05/2005 2
Bueno grupo espero que entiedan mi codigo..
si alguin me quiere escribir para aclararm,e las dudas o mandarme ejemplos
de datagridsss y todo referente a ello
esta es mi direccion jlsimon04@gmail.com