Dim sSQL As String
        Dim oCmd As SqlClient.SqlCommand
        Dim oSda As SqlClient.SqlDataAdapter
        Dim oRdr As SqlClient.SqlDataReader
 
        'SQL um cbWBAusbildungsart zu füllen
        sSQL = " SELECT CdsBez FROM t_Codes WHERE CdsCdtID_FK = 3 "
 
        oCmd = g_oApp.ConnectionAppl.CreateCommand
        oCmd.CommandText = sSQL
        oRdr = oCmd.ExecuteReader
        'Do While oRdr.Read
            cbWBAusbildungsart.DataSource = oRdr
        'Loop

oRdr = oCmd.ExecuteReader