Dim StrSQLUnternehmen As String
        Dim oSQLcommand1 As SqlCommand
        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 SqlConnection(connString)
 
        Try
            conn.Open()
        Catch
            MsgBox("Die Verbindung konnte nicht hergestellt werden.")
            Exit Sub
        End Try
 
        dst1 = New DataTable()
        StrSQLUnternehmen = "SELECT * FROM tbl_Unternehmen"
        oSQLcommand1 = New SqlCommand(StrSQLUnternehmen, conn)
        Dim SQLadapter As New SqlDataAdapter()
        SQLadapter = New SqlClient.SqlDataAdapter("select * from" & _
          "tbl_Unternehmen", conn)
        SQLadapter.Fill(dst1)
        Me.cbo_Unternehmen.DataSource = dst1
        Me.cbo_Unternehmen.DisplayMember = "Unternehmensname"
        Me.cbo_Unternehmen.ValueMember = "IDUnternehmen"
        'MsgBox(dst1.Rows.Count)