Public Class <KlassenName>
 
Dim DbName as String
 
 
Private Sub <KlassenName>_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
DbName = ....
 
End Sub

Private Sub <KlassenName>_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
Dim DbName as String= ....
 
End Sub

Private Sub <KlassenName>_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
Dim DbName as String
 
DbName = ...
 
End Sub

Gruss Caddy