Private Sub btnPrijava_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrijava.Click
        Dim connection As New SqlClient.SqlConnection
        Dim command As New SqlClient.SqlCommand
        Dim adaptor As New SqlClient.SqlDataAdapter
        Dim dataset As New DataSet
        connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Baza.mdf;Integrated Security=True;User Instance=True")
        command.CommandText = "SELECT * FROM [Korisnici] WHERE KorisnickoIme='" & txtKorisnicko.Text & "' AND Lozinka='" & txtLozinka.Text & "';"
        connection.Open()
        command.Connection = connection
        adaptor.SelectCommand = command
        adaptor.Fill(dataset, "0")
        Dim count = dataset.Tables(0).Rows.Count
        If count > 0 Then
            MsgBox("Login Successfull", MsgBoxStyle.Information, "Login Passed")
        Else
            MsgBox("Invalid Account", MsgBoxStyle.Critical, "Login Failed")
            txtKorisnicko.Clear()
            txtLozinka.Clear()
        End If
    End Sub