Tombol Simpan

    Private Sub BtmSave_Click(sender As Object, e As EventArgs) Handles BtmSave.Click
        Call conecDB()

        Try
            SQL = "INSERT INTO tb_supplier VALUES ('" &
                txtNamaSupplier.Text &
                "','" & txtAlamat.Text &
                "','" & txtTelpon.Text &
                "','" & txtPIC.Text &
                "','" & txtNPWP.Text &
                "','" & txtKTP.Text &
                "')"
            comDB.CommandText = SQL
            rdDB = comDB.ExecuteReader
            MsgBox("Data Berhasil Disimpan")
        Catch ex As Exception
            MsgBox("Gagal Simpan Data")
        End Try
    End Sub
End Class