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

        Dim StrSQLUnternehmen As String
        Dim oSQLcommand1 As SqlCommand
        Dim dst1 As DataTable
 
        dst1 = New DataTable()
        StrSQLUnternehmen = "SELECT * FROM tbl_Unternemensname"
        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 = "Unternehmens_Name"