comunque in questo caso non ho un db!!!!
non l'ho scritto io... non avendo un db o un file di configurazione o il registro di windows.

per documentazione intendo msdn di vb, che se non installato è cmq consultabile online.

per salvare:
SaveSetting "MyApp", "Startup", "Top", "75"

per leggere:
valore = GetSetting("MyApp", "Startup", "Left", "25")

in ordine: AppName, Section, Key, valore

la dichiarazione di GetSetting è:
codice:
Public Function GetSetting( _
   ByVal AppName As String, _
   ByVal Section As String, _
   ByVal Key As String, _
   Optional ByVal Default As String = "" _
) As String
ti serve solo per capire come funziona, l'ultimo parametro opzionale è un valore di default nel caso in cui la chiave non abbia alcun valore, per fare in modo che cmq ritorni sempre un risultato.

Nell'esempio precedente se non è assegnato alcun valore alla chiave "Left" la funzione ritorna come valore di default 25.