Option Compare Database
Option Explicit
Dim ZbirS As Currency