Ganz Einfach:

Diese Typen gibt es garnicht:

Dim Ad As Adresse
Dim Na As Name
Dim St As Strasse
Dim La As Land
Es gibt keinen Typ für Strassen ( Rofl ), das müssen Strings sein...

Dim Ad As String

Und das bei allen!

Edit:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub cmdAnzeige_Click( ... ) Handles ...
Verschachtelte Subs?!

@inmate wie kann solche Fehler bitte übersehen? oO

@Sarge_stoni Adde mich mal bei ICQ, ich helfe dir gerne, auch per TV / TS.