Llenar ComboBox con registros – Vb.net

Public Sub comboCajasAperturadas(combo As ComboBox,
                                     xCriterio As String)
        Try
            Dim dt As New DataTable

            dt = consultarData(15, xCriterio)

            combo.Items.Clear() 'LIMPIAMOS EL COMBO BOX

            If dt.Rows.Count <> 0 Then ' Verfica Si Dt esta lleno con registros

                For Each row In dt.Rows 'Recorro el DT'
                    combo.Items.Add(row("Descripcion"))
                Next

                combo.SelectedIndex = 0 'SELECCIONAMOS EL PRIMER REGISTROS

            Else
                combo.Items.Add("Sin Registros ....") ' ESTABLECEMOS EL SIGUIENTE ITEM SI NO HAY REGISTROS
                combo.SelectedIndex = 0 'SELECCIONAMOS EL ITEM ANTERIOR
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            desconectado()
        End Try
    End Sub