Private Sub Registracija_Click()
Dim Akod
Dim Kbroj As String, KKod As String

Akod = Me.AutorskiKod
Kbroj = Me.KorisnickiBroj
If Format$(Akod) <> "" Then
KKod = Provjera(Kbroj)
    If KKod = Akod Then
    Dim db As Database
    Dim rs As Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Opcije WHERE ID=1")
    rs.Edit
    rs.Fields(2) = Akod
    rs.Update
    MsgBox "Program je registrovan"
    Else
    MsgBox "Registracija nije uspjela"
    End If
End If
End Sub