Sub simpan_hargabertingkat()
        Dim _jml1, _jml2, _harga As Integer
        _jml1 = Nothing
        _jml2 = Nothing
        _harga = Nothing
        Try
            Call koneksi_utama()
            Dim simpan As String
            simpan = "insert into hargabertingkat(namasatuan) values(@namasatuan)"
            sqlquery = New MySqlCommand(simpan, database)
            sqlquery.Parameters.AddWithValue("@namasatuan", MySqlDbType.VarChar)
            sqlquery.Parameters.AddWithValue("@kodebarang", MySqlDbType.VarChar)
            sqlquery.Parameters.AddWithValue("@jml1", MySqlDbType.Int32)
            sqlquery.Parameters.AddWithValue("@jml2", MySqlDbType.Int32)
            sqlquery.Parameters.AddWithValue("@harga", MySqlDbType.Int32)

            For i As Integer = 0 To DGVHargaBertingkat.Rows.Count - 2
                If Not DGVHargaBertingkat.Rows(i).Cells(0).FormattedValue = "" Then
                    sqlquery.Parameters("@namasatuan").Value = DGVHargaBertingkat.Rows(i).Cells(0).FormattedValue 'yg error disini

                    sqlquery.Parameters("@kodebarang").Value = kodebarangtxt.Text

                    If DGVHargaBertingkat.Rows(i).Cells(1).FormattedValue <> "" Then
                        sqlquery.Parameters("@jml1").Value = Integer.Parse(DGVHargaBertingkat.Rows(i).Cells(1).FormattedValue)
                    Else
                        sqlquery.Parameters("@jml1").Value = _jml1
                    End If
                    If DGVHargaBertingkat.Rows(i).Cells(2).FormattedValue <> "" Then
                        sqlquery.Parameters("@jml2").Value = Integer.Parse(DGVHargaBertingkat.Rows(i).Cells(2).FormattedValue)
                    Else
                        sqlquery.Parameters("@jml2").Value = _jml2
                    End If
                    If DGVHargaBertingkat.Rows(i).Cells(3).FormattedValue <> "" Then
                        sqlquery.Parameters("@harga").Value = Integer.Parse(DGVHargaBertingkat.Rows(i).Cells(3).FormattedValue)
                    Else
                        sqlquery.Parameters("@harga").Value = _harga
                    End If
                    sqlquery.ExecuteNonQuery()
                End If
            Next i
            MsgBox("Data berhasil disimpan!", vbInformation)

        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub