Option Compare Database
Option Explicit
Dim BrKom As Integer