Dim strConn As String 
     
     strConn = "Provider=Microsoft.Jet.OLEDB.3.51;" & _ 
     "Data Source=" & App.Path & "\Data\MyDB.mdb;" 
     DataEnvironment1.Connection1.ConnectionString = strConn 
<END>     

    