Dim vDate As Date = Format(Me.datetimepicker1.Value, "MM/dd/yyyy")
Dim vDelStr As String = "DELETE * FROM PRODUCTION _
WHERE PDATE =#" & vDate.ToString("MM/dd/yyyy") & "#"
Dim Delcmd As New OleDb.OleDbCommand(vDelStr, con)
Delcmd.ExecuteNonQuery()
