Public Class Form1
    Public data
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dtpDateTime.ShowUpDown = True
        dtpDateTime.ShowCheckBox = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        dtpDateTime.ShowUpDown = False
        dtpDateTime.ShowCheckBox = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dtpDateTime.ShowUpDown = True
        dtpDateTime.ShowCheckBox = True
        data = dtpDateTime.Value.ToShortDateString()
        lblShortDate.Text = data
        lblLongDate.Text = dtpDateTime.Value.ToLongDateString()

        lblShortTime.Text = dtpDateTime.Value.ToShortTimeString()
        DataSet11.Clear()
OleDbCommand1.Parameters("[Order].Date_of_order").Value = data
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT [Order].Num_Costumer, Costumers.Num_Costumer AS Expr1, [Order].Order_number, [Order].Total_Mass, [Order].Total_Nefah,[Order].Date_of_order))( FROM ([Order] INNER JOIN  Costumers ON [Order].Num_Costumer = Costumers.Num_Costumer WHERE([Order].Date_of_order = #data#)"
       
 OleDbDataAdapter1.Fill(DataSet11)
       
   End Sub