Как избежать избыточности данных.

---

Стараясь не заказывать урок дважды на одну и ту же дату и в одно и то же время.
получил этот код с youtube, но он не работает в течение долгого времени. Если я изменюсь на @name или что-то другое, кроме времени, это сработает. пожалуйста помочь

Что я уже пробовал:

Imports System.Data.OleDb

Public Class Form1

    Dim myconnstring As String = "Provider= Microsoft.Jet.OleDb.4.0;Data source=" & Environment.CurrentDirectory & "Carst.mdb"
    Dim command As OleDbCommand
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'CarstDataSet.cars' table. You can move, or remove it, as needed.
        Me.CarsTableAdapter.Fill(Me.CarstDataSet.cars)

    End Sub

    Private Sub Savebtn_Click(sender As Object, e As EventArgs) Handles Savebtn.Click
        Dim myconnection As New OleDbConnection(myconnstring)
        If Car_IdTextBox.Text = "" Or TimeDateTimePicker.Text = "" Then
            MsgBox("Please fill in the time and Car Id")
        Else



            Dim theQuery As String = "select *from cars where Time=@Time"
            Dim mycommand As New OleDbCommand(theQuery, myconnection)
            mycommand.Parameters.AddWithValue("@Time", TimeDateTimePicker)
            'mycommand.Parameters.AddWithValue("@day", Dayd)
            myconnection.Open()
            Dim myReader As OleDbDataReader = mycommand.ExecuteReader()
            If myReader.HasRows Then
                MsgBox("Already Booked", MsgBoxStyle.Exclamation, "Find some other time")
            Else

                Me.Validate()
                Me.CarsBindingSource.EndEdit()
                Me.TableAdapterManager.UpdateAll(Me.CarstDataSet)
                MsgBox("BOOKED")
                Form1_Load(Me, e)
            End If
        End If

    End sub

---