'Objekt Datatable instanzieren
Dim sqldt as DataTable
sqldt = New DataTable()
 
        Try
           'SQL-Adapter instanzieren und gleich mit Daten füllen
            sqlAdap = New SqlClient.SqlDataAdapter("select * from" & _
              "tbl_Unternehmen", sqlConn)
           'Anschließend die Datentabelle mit den Werten des SQL-Adapters 
           ' bestücken
            sqlAdap.Fill(sqldt)
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Ausführen der" & _
              "Abfrage")
 
        Finally
            sqlConn.Close()
 
        End Try
 
'Anschließend die Datasourceeigenschaft der ComboBox mit der Datatable 
' verknüpfen und angeben, welcher Wert angezeigt wird und welcher Wert bei Wahl 
' eines Unternehmens zum Tragen kommt (Nummer)
 
        Me.cboUnternehmen.DataSource = sqldt
        Me.cboUnternehmen.DisplayMember = "Unternehmens_Name"
        Me.cboFiliale.ValueMember = "Unternehmer_Nummer"
 
End Sub