Dim a As Integer = 0
        Call koneksi()
        cmd = New OdbcCommand(" select id_waktu  from waktu order by id_waktu desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()

        If Not dr.HasRows Then
            a = "0001"
        Else
            a = Val(dr.Item("id_waktu")) + 1
        End If