Dim SQL As String = "SELECT * FROM Mitarbeiter"
    Dim sql_id = System.Configuration.ConfigurationSettings.AppSettings.Get( _
      "sql_id")
    Dim sql_data As String = _
    System.Configuration.ConfigurationSettings.AppSettings.Get("sql_data")
    Dim sql_catalog As String = _
    System.Configuration.ConfigurationSettings.AppSettings.Get("sql_catalog")
 
    Dim conn As New SqlConnection("packet size=4096;user id=" & sql_id & _
      ";integrated security=SSPI;data source=" & sql_data & ";persist security" & _
      "info=False;initial catalog=" & sql_catalog)
 
 
    Dim da As New SqlDataAdapter(SQL, conn)
 
    Dim ds As New DataSet
    Private Sub email_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ReadData("Mitarbeiter")
    End Sub
 
    Sub ReadData(ByVal Tabellenname As String)
        conn.Open()
        da.Fill(ds, Tabellenname)
        conn.Close()
        ComboBox1.Items.Add(ds.Tables(0).DefaultView("Nachname"))
        'Dim dt As DataTable = ds.Tables(Tabellenname)
        'Dim dr As DataRow
 
    End Sub