برنامج اجازات زمنية

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    	Dim conn As New OleDb.OleDbConnection(connectionString)
    	Dim Insert As New OleDbCommand("insert into per_time (emp_no,TimeStart,TimeEnter ) values ( @emp_no,@TimeStart ,@TimeEnter )", conn)
    	Insert.Parameters.AddWithValue("@emp_no", emp_idtxt.Text)
    	Insert.Parameters.AddWithValue("@TimeStart", DateTimePicker2.Text)
    	Insert.Parameters.AddWithValue("@TimeEnter", DateTimePicker2.Text)
    	conn.Open()
    	Insert.ExecuteNonQuery()
    	conn.Close()
    	MsgBox("تم الحفظ السجل", MsgBoxStyle.Information)
	End Sub