Error:Dataset

[jorge1980]

Hola! Alguien puede ayudareme a determinar el origen del siguiente error:"El valor no puede ser nulo. Nombre del parámetro: dataSet"

Les muestro el codigo:

Private Function MostrarSectores()
Dim con As String
con = CStr(Application("SqlConnection"))

Dim sqlcon As New SqlConnection(con)

Dim daSectores As New SqlDataAdapter
Dim dsSectores As DataSet

daSectores.SelectCommand = New SqlCommand("CargarSectores", sqlcon)
daSectores.SelectCommand.CommandType = CommandType.StoredProcedure

sqlcon.Open()
daSectores.SelectCommand.ExecuteNonQuery()
daSectores.Fill(dsSectores, "Sectores")
sqlcon.Close()

Dim fila As DataRow
For Each fila In dsSectores.Tables("Sectores").Rows
Dim Agregar As New ListItem
Agregar.Text = fila("NOMBRE")
Agregar.Value = fila("ID_SECTOR").GetType.ToString
lstsector.Items.Add(Agregar)
Next
End Function

Gracias!