'Button simpan
    Private Sub Bt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_simpan.Click
        Try
            For Each row As DataGridViewRow In dg_normalisasi.Rows
                Call mengkoneksikan()
                Dim simpan As String = String.Empty
                simpan = "insert into tb_normalisasi (tgl_penilaian,kd_alter,Nama,nilai_timework,nilai_mskrj,nilai_presensi,nilai_kreatif, nilai_total) values ('" & tgl_input.Text & _
                                                            "','" & Convert.ToString(row.Cells(0).Value) & "','" & Convert.ToString(row.Cells(1).Value) & _
                                                            "','" & Convert.ToString(row.Cells(2).Value) & "','" & Convert.ToString(row.Cells(3).Value) & _
                                                            "','" & Convert.ToString(row.Cells(4).Value) & "','" & Convert.ToString(row.Cells(5).Value) & _
                                                            "','" & Convert.ToString(row.Cells(6).Value) & "')"

                CMD = New OdbcCommand(simpan, CONN)
                CMD.ExecuteNonQuery()
                CMD.Dispose()
            Next
            '====================
            'Pesan Jika Berhasil
            '====================
            MessageBox.Show("Data Perhitungan Baru Berhasil Di Simpan")

        Catch ex As Exception
            '=================
            'Pesan Jika Gagal
            '=================
            MessageBox.Show("Data Perhitungan Sudah Ada Tolong Di Cek Kembali, Mohon Di Cek Kembali")
        End Try