*form load event code Local dbc_path Select datadir From pathcont Into Cursor CrsPathcont dbc_path=Alltrim(CrsPathcont.datadir) + "\data1.dbc" thisform.SetAll("database",dbc_path,"cursor")