If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text)) Then
            MessageBox.Show("أرجو ان تقوم بتعبية بعض البيانات ")
            Return
        End If
        Dim cmd As New OleDbCommand("insert into moka1 (maxq,max,sill,DATA) values(' " & TextBox1.Text & "','" & TextBox2.Text & " ',' " & TextBox3.Text & "' , # " & DateTimePicker1.Value.ToString("yyyy / MM / dd") & "   #)")
        cmd.Connection = con
        con.Open()
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show("تم الادراج بنجاح")
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox3.Text = String.Empty