[سؤال] كيف أبحث بين تاريخين لجدول مسجل فيه تارريخين

كود :

Public Sub SearchBetweenTwoDate(ByVal DTpvisitdatefrom As DateTimePicker, ByVal DTpvisitdatefrom2 As DateTimePicker, ByVal DTpvisitdateto As DateTimePicker, ByVal DTpvisitdateto2 As DateTimePicker)

        DT_TwoDate_visittb.Clear()

        Dim Cmd2Date As New SqlCommand("Select visitorid,visitorfullname,visitpurpose,visitorcompany,visitordepartment,visitday,visitdatefrom,visitdateto,visituser From visittb Where visitdatefrom >= @visitdatefrom And visitdatefrom <= @visitdatefrom2 And visitdateto >= @visitdateto And visitdateto <= @visitdateto2 ", Con) '

        Cmd2Date.Parameters.Clear()

        Cmd2Date.Parameters.Add("@visitdatefrom", SqlDbType.Date).Value = "#" & DateTimePicker1.Text & "#"

        Cmd2Date.Parameters.Add("@visitdatefrom2", SqlDbType.Date).Value = "#" & DateTimePicker2.Text & "#"

        Cmd2Date.Parameters.Add("@visitdateto", SqlDbType.Date).Value = "#" & DateTimePicker1.Text & "#"

        Cmd2Date.Parameters.Add("@visitdateto2", SqlDbType.Date).Value = "#" & DateTimePicker2.Text & "#"

        Try

            If Con.State = 1 Then Con.Close()

            Con.Open()

            DT_TwoDate_visittb.Load(Cmd2Date.ExecuteReader)

            Con.Close()

            Cmd2Date = Nothing

        Catch ex As Exception

            Con.Close()

            MsgBox(Err.Description, MsgBoxStyle.Information)

        Finally

            If Con.State = ConnectionState.Open Then Con.Close()

        End Try

    End Sub

كود :

Public Sub SearhBetween(ByVal DD1 As Date, ByVal DD2 As Date)

        Dim dt As New DataTable

        Dim cmd As New SqlCommand()

        dt.Clear()

        cmd = New SqlCommand("SELECT * FROM CG WHERE CG_Come >= @DD1 AND CG_Come <= @DD2 and CG_Go >= @DD1 AND CG_Go <= @DD2", Cn) ' استعلام زيارة وخروج اي شرطين تاريخ ادنى وتاريخ اعلى لكل من الزيارة والخروج وبذلك 4 شروط

        'cmd = New SqlCommand("SELECT * FROM CG WHERE CG_Come >= @dt1 AND CG_Come <= @dt2", Cn) '  استعلام زيارة بشرطين تاريخ ادنى وتاريخ اعلى 

        cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = Dtp_Come.Value

        cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = Dtp_Go.Value

        If Cn.State = ConnectionState.Open Then

            Cn.Close()

        End If

        Cn.Open()

        dt.Load(cmd.ExecuteReader())

        Cn.Close()

        dgv_table.DataSource = dt

    End Sub

ثم نادي على هذا الصب