Public Shared _cInfo As String = ""
 
        Public Shared Property cInfo() As String
            Get
                Return _cInfo
            End Get
            Set(ByVal Value As String)
                _cInfo = Value
            End Set
        End Property
 
        Public Overrides Sub RaisePostBackEvent(ByVal eventArgument As String) _
          'Implements IPostBackEventHandler.RaisePostBackEvent
            Page.Trace.Write("RaisePostBackEvent Called")
            Dim SqlConnection As System.Data.SqlClient.SqlConnection
            Dim SqlSelectCommand As System.Data.SqlClient.SqlCommand
            Dim strScalarCommand As String
            Dim intResult As Integer
            SqlConnection.ConnectionString = _cInfo
            strScalarCommand = "Select Count(*) From Kunden Where Kunde='" & _
              _UserName & "' AND _Password='" & Password & "'"
            SqlSelectCommand.CommandType = CommandType.Text
            SqlSelectCommand.CommandText = strScalarCommand
            SqlConnection.Open()
            intResult = CType(SqlSelectCommand.ExecuteScalar(), Integer)
            SqlConnection.Close()
            If intResult = 1 Then
                MyBase.OnAuthSuccess(EventArgs.Empty)
            Else
                MyBase.OnAuthFailure(EventArgs.Empty)
            End If
        End Sub

bbLib.bbControl.dbLogin.cInfo = SqlConnection1.ConnectionString

SqlConnection.ConnectionString = _cInfo

If it was hard to code, it should be hard to read too.