Public cn As ADODB.Connection
'--------------------------  MsAccess Baza ---------------------------------------------
 cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
                     "Dbq=VasaBaza.mdb;" & _
                     "DefaultDir=" & App.Path & ";" & _
                     "Uid=Admin;Pwd=;"
'---------------------------------------------------------------------------------------