VB Code:
  1. cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\safal_data.mdb;Jet OLEDBatabase Password=" & MyDbPassword & ";"