Ciao grazie per la risp, ho risolto mettendo la seguente stringa

Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\Magazzino1.mdb;"