Visual Basic.NET - problema con fecha

Alguien me puede decir por que la fecha no me la lee..

Private Sub visorinsumo()

Dim DataAdapter As Data.OleDb.OleDbDataAdapter

Dim DataSet As Data.DataSet
Dim jefe As Integer
Dim fecha As Date


jefe = Me.ComboBox6.SelectedValue
fecha = Me.DateTimePicker1.Text

'LLENA EL DATASET CON LOS CAMPOS DE LA TABLA

Dim sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:BodegaBodegaBodega.mdb "

Dim Conexion1 As New Data.OleDb.OleDbConnection(sCon)

DataAdapter = New Data.OleDb.OleDbDataAdapter("SELECT * FROM urgencia where Fld_Fecha = " & fecha & " ", Conexion1)

DataSet = New Data.DataSet
DataAdapter.Fill(DataSet)
DataGridView1.DataSource = DataSet.Tables(0)

Conexion1.Open()
'DataAdapter.Fill(DataSet, "Importada")
'ComboBox1.DataSource = DataSet.Tables("P")
'ComboBox1.DisplayMember = DataSet.Tables("P").Columns("codmat").ToString

'Conexion1.Close()

'ENLAZA EL DATASET CON UN DATAGRIDVIEW
'ComboBox1.DataSource = DataSet
End Sub

fecha = Me.DateTimePicker1.value

Lo que pasa si uso esta funcion me trae fechay y hora yo trabajo solo con fecha

Usa la funcion format:

fecha = format(Me.DateTimePicker1.value,"yyyyMMdd")

o

fecha = format(Me.DateTimePicker1.value,"Short Date")