Visual Basic.NET - Guardar dato tipo fecha en access desde vb2008

Hola amigos, pues resulta que tengo este codigo

Dim CMD As New OleDb.OleDbCommand("SELECT *FROM prestamo WHERE idusuario='" & TextBox1.Text & "'", CN)
Dim DR As OleDb.OleDbDataReader

CN.Open()
DR = CMD.ExecuteReader


If DR.Read Then
TextBox1.Text = DR(0)
TextBox2.Text = DR(1)
TextBox3.Text = DR(2)
TextBox4.Text = DR(3)
DateTimePicker1.Text = DR(4)
DateTimePicker1.Text = DR(5)
Else
MsgBox("No se encontro material con el ID ingresado: " & TextBox2.Text)
End If
CN.Close()

y me muestra un error en la fecha y no estoy segura de que sea tipo text....
si me pueden ayudar muchas Gracias ;)

prueba comprobar el formato de lafecha en vez de asignarsela al DateTimePicker1.Text para poder verla y comprobar si DateTimePicker1 admite el formato que le estas entregando

msgbox(DR(4))
msgbocx( DR(5))

si estos dos resultados no es fecha entonces te dara error

DateTimePicker1.Text = cdate(DR(4))
DateTimePicker1.Text = cdate(DR(5))

espero haberte ayudado en algo