Further, if you want help with deleting then why have you posted all that code for selecting and inserting? Posting more code than is relevant, plus not using VBCODE tags to make your code more readable means that people are less likely to help because it takes more effort to do so. Also, you have code there. Presumably you've executed it and it doesn't work. What happens? Do you get an error message? Make it easier for usto help by supplying all the relevant information and no irrelevant information and you're more likely to get a helpful response.

For the reasons mentioned above I'm not going to read your code in detail, but if you want to delete a record by date that has been entered in a DateTimePicker you should do it like this:
VB Code:
  1. Dim myConnection As New OleDbConnection("connection string here")
  2. Dim myCommand As New OleDbCommand("DELETE FROM MyTable WHERE [Date] = @Date", myConnection)
  3.  
  4. myCommand.Parameters.AddWithValue("@Date", myDateTimePicker.Value.Date)
  5.  
  6. Try
  7.     myConnection.Open()
  8.     myCommand.ExecuteNonQuery()
  9.     MessageBox.Show("Record deleted.")
  10. Catch ex As Exception
  11.     MessageBox.Show(ex.ToString())
  12. Finally
  13.     myConnection.Close()
  14. End Try