dim linje kortere

måske Dim DBConnection As OleDbConnection, DBAdapter As OleDbDataAdapter

Ellers er det faktisk god en god vane at erklærer en variabel per linje.
Du kan evt smide dem i en region:
#region variabler
Dim DBConnection As OleDbConnection
    Dim DBAdapter As OleDbDataAdapter
    Dim DBDataSet As DataSet
    Dim DBDataView As DataView
    Dim SQLString As String
    Dim DBConnection2 As OleDbConnection
    Dim DBAdapter2 As OleDbDataAdapter
    Dim DBDataSet2 As DataSet
    Dim DBDataView2 As DataView
    Dim SQLString2 As String
    Dim DBConnection3 As OleDbConnection
    Dim DBAdapter3 As OleDbDataAdapter
    Dim DBDataSet3 As DataSet
    Dim DBDataView3 As DataView
    Dim SQLString3 As String
#endregion

På den måde kan du minimerer dem.

Dim alle ens, ens As type

f.eks.
Dim DBConnection, DBConnection2 As OleDbConnection
Dim DBAdapter, DBAdapter2 As OleDbDataAdapter
osv...

;o)

Når man begynder at skrive sådan noget kode, er arrays en oplagt mulighed

Dim DBConnection(2) As OleDbConnection
Dim DBAdapter(2) As OleDbDataAdapter
Dim DBDataSet(2) As DataSet

Umiddelbart vil jeg mene at KommuneConnection, VejConnection, HusConnection etc. er
mere læseligt end både Connection1, Connection2, Connection3 og
Connection(0), Connection(1), Connection(2).

tror jeg bruger A1 eks. men Arne V. du har ret, men i mit tilfælde vil de navne komme til at lægge meget tæt op af hinanden.

Men 1000 tak allesammen og beklager lang svar tid men skulle lige test og læse en del om dette.