Ho eseguito il tuo programma e come supponevo succede che al primo avvio nella Load del form Login hai che "Datafile" ha questo valore:
"\Dbga.mdb;Persist Security Info=True;Jet OLEDB:Database Password=
www.my-programs.i"
e di conseguenza "connstring" ha questo valore
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\Dbga.mdb;Persist Security Info=True;Jet OLEDB:Database Password=
www.my-programs.i"
Metti queste due istruzioni nella load e non nelle dichiarazioni inziali
'Nelle dichiarazioni
Dim dataFile As String
Dim connString As String
'Nella Load di Login
If My.Settings.percorso = Nothing Then
My.Settings.percorso = percorsodb
My.Settings.Save()
End If
dataFile = My.Settings.percorso & "\Dbga.mdb;Persist Security Info=True;Jet OLEDB:Database Password=www.my-programs.it"
connString = provider & dataFile