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 SQL As String = "SELECT * FROM " & Kunden
        Dim da As New SqlDataAdapter(SQL, conn)
        ' Dim cmdB As New SqlCommandBuilder(da)
        Dim ds As New DataSet
 
        conn.Open()
        da.Fill(ds, "Kunden")
        conn.Close()