Vorrei darti due piccoli spunti per aumentare la coerenza.
Dim iKeyAd As Integer = CInt(DataBrowser1.View[DataBrowser1.View.Row, 0].Text)
Questa riga funziona perfettamente ma tisuggerirei questa soluzione
Dim iKeyAd As Integer = CInt(DataSource1.Current[0])
Current restituisce sempre il campo chiave del record selezionato.
DataSource2.Table = "SELECT ttype.tytyp, tmedi.memed FROM ttype INNER JOIN (taddr INNER JOIN tmedi ON taddr.adkey = tmedi.adkey) ON ttype.tykey = tmedi.tykey WHERE taddr.adkey = " & iKeyAd
anche questa funziona perfettamente ma questa
DataSource2.Table = "SELECT ttype.tytyp, tmedi.memed FROM ttype, tmedi WHERE ttype.tykey=tmedi.tykey And tmedi.adkey=" & iKeyAd
è molto più semplice e leggibile.