connectString = _
            "Data Source=.\SQLEXPRESS;AttachDbFilename=" + databankName + _
            ";Integrated Security=True"
 
       Dim connection As New SqlConnection(connectString)
 
        Try
            connection.Open()
            MessageBox.Show(connection.DataSource)
 
            Dim ds As New DataSet
 
            Dim da As New SqlDataAdapter("SELECT * from " + theTable, _
              connection)
            da.Fill(ds, theTable)
             connection.Close()
 
        Catch ex As Exception
            MessageBox.Show("Datenbankverbindung " + theTable + "" & _
              "fehlgeschlagen!")
        Finally
            connection.Close()
        End Try

Salzburger