Baza = App.Path & "\" & "BazaRL.mdb"
 cn.ConnectionString = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Baza & ";"
 cn.Open