Dim m_cRemoteConnection As SqlConnection
    Dim m_cRemoteDataAdapter As SqlDataAdapter
 
    Dim m_sTable As String
    Dim m_cDataTable As DataTable
 
    Dim sSql As String = "SELECT [iSprachID],[sSprache] FROM [const_Sprachen]"
 
    m_cRemoteConnection = New SqlConnection("Data" & _
      "Source=localhost\SQLEXPRESS;Initial            " & _
      "Catalog=auditor;Integrated Security=SSPI;")
 
    m_cRemoteDataAdapter = New SqlDataAdapter(sSQL, m_cRemoteConnection)
    m_cRemoteCommandB = New SqlCommandBuilder(m_cRemoteDataAdapter)
 
    m_cDataTable = New DataTable("const_Sprachen")
 
    m_cBindingSource = New BindingSource
    m_cBindingSource.DataSource = m_cDataTable
 
    m_cRemoteDataAdapter.Fill(m_cDataTable)
 
    With CB_Sprache
        .DataSource = cSprachen.m_cDataTable    '<== FEHLER TRITT HIER AUF
    End With