Dim conn As SqlClient.SqlConnection
Dim SQLadapter As SqlClient.SqlDataAdapter
Dim StrSQLUnternehmen As String = "SELECT * FROM tbl_Unternehmen"
Dim dst1 As DataTable
 
 
        'Deklaration für Variable, die Verbindungsinformationen enthält
        Dim connString As String
        connString = "Initial Catalog=Test;"
        connString += "Data Source=SBE1269;initial catalog=Test;integrated" & _
          "security=SSPI;persist security info=false;workstation" & _
          "id=U114603;packet size=4096;"
 
        conn = New SqlClient.SqlConnection(connString)
 
        Try
            conn.Open()
        Catch
            MsgBox("Die Verbindung konnte nicht hergestellt werden.")
            Exit Sub
        End Try
 
        Try
            dst1 = New DataTable()
            SQLadapter = New SqlClient.SqlDataAdapter("select * from" & _
              "tbl_Unternehmen", conn)
            SQLadapter.Fill(dst1)
        Catch ex As SqlClient.SqlException
            MsgBox("DB-Fehler", MsgBoxStyle.Critical, "Error")
        End Try
 
        If dst1.Rows.Count > 0 Then
            Me.cbo_Unternehmen.DataSource = dst1
            Me.cbo_Unternehmen.DisplayMember = "Unternehmensname"
            Me.cbo_Unternehmen.ValueMember = "IDUnternehmen"
        Else
            MsgBox("Für eine Füllung der Combobox liegen keine Daten vor", _
              MsgBoxStyle.Information, "FillCombo")
        End If