Public Class Mainform
    Public databankName As String
    Public connectString As String
    Public connection As New SqlConnection(connectString)
    Public ds As DataSet = Nothing
.....
'im FormLoad:
databankName
        connectString = _
                    "Server=.\SQLEXPRESS;Database=" + databankName + _
                    ";Integrated Security=True;Timeout=40"
.....

Module Modul1
 
    Public Sub theConnection(ByVal theTable As String, ByVal theGrid As _
      DataGridView)
        Dim connection As New SqlConnection(connectString)
 
        Try
            connection.Open()
 
            Dim da As New SqlDataAdapter("SELECT * from " + theTable, _
              connection)
            da.Fill(ds, theTable)
            theGrid.DataSource = ds
.....

Salzburger